diff options
| -rw-r--r-- | fpm/src/fpm.f90 | 1 | ||||
| -rw-r--r-- | fpm/src/fpm_strings.f90 | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index a779599..f4ca334 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -266,7 +266,6 @@ subroutine cmd_run(settings,test) do j=1,size(settings%name) - !*!if (trim(settings%name(j))==exe_source%exe_name) then if (glob(trim(exe_source%exe_name),trim(settings%name(j)))) then found(j) = .true. diff --git a/fpm/src/fpm_strings.f90 b/fpm/src/fpm_strings.f90 index 6bbb7c7..5b88591 100644 --- a/fpm/src/fpm_strings.f90 +++ b/fpm/src/fpm_strings.f90 @@ -485,6 +485,8 @@ character(len=:),allocatable :: sep_local, left_local, right_local endif enddo end function join + +function glob(tame,wild) !> !!##NAME !! glob(3f) - [M_strings:COMPARE] compare given string for match to @@ -719,7 +721,6 @@ end function join !! !!##LICENSE !! Public Domain -function glob(tame,wild) ! ident_6="@(#)M_strings::glob(3f): function compares text strings, one of which can have wildcards ('*' or '?')." |