From e6ee005096650fcbb75d43e2ad08b3515f2f2f42 Mon Sep 17 00:00:00 2001 From: "init current directory[i]" Date: Sun, 11 Oct 2020 04:24:10 -0400 Subject: DOS Test development --- fpm/test/new_test/new_test.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fpm/test/new_test/new_test.f90 b/fpm/test/new_test/new_test.f90 index 2a4d3fe..289431e 100644 --- a/fpm/test/new_test/new_test.f90 +++ b/fpm/test/new_test/new_test.f90 @@ -116,7 +116,7 @@ logical,allocatable :: tally(:) if(allocated(fnames))deallocate(fnames) allocate(character(len=0) :: fnames(0)) do j=1,size(file_names) - if(file_names(j)%s(1:1).eq.'.')cycle + if(file_names(j)%s(1:1).eq.'.'.or.index(file_names(j)%s,'/.').ne.0.or.index(file_names(j)%s,'\.').ne.0)cycle fnames=[character(len=max(len(fnames),len(file_names(j)%s))) :: fnames,file_names(j)%s] enddo write(*,'(*(g0))',advance='no')'>>>DIRECTORY ',trim(directories(i)),': ' -- cgit v1.2.3