diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 04:24:10 -0400 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 04:24:10 -0400 |
| commit | e6ee005096650fcbb75d43e2ad08b3515f2f2f42 (patch) | |
| tree | 6339ee952f94024878df274fccc4ad7ff6cfcecb | |
| parent | ad653051402d93544efda095a39372fd922e83b2 (diff) | |
| download | fpm-e6ee005096650fcbb75d43e2ad08b3515f2f2f42.tar.gz fpm-e6ee005096650fcbb75d43e2ad08b3515f2f2f42.zip | |
DOS Test development
| -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)),': ' |