diff options
| -rw-r--r-- | fpm/test/new_test/new_test.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
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)),': ' |