diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-02-21 09:08:07 -0500 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-02-21 09:08:07 -0500 |
| commit | f2803321f8eef2fcbe6ccaaab8dcaaddcfd76100 (patch) | |
| tree | 72b3b91ed6808092aa824a557f4007d05488e825 | |
| parent | 4870a59b46c7d3c7b4f411330396d0e26cb4846a (diff) | |
| download | fpm-f2803321f8eef2fcbe6ccaaab8dcaaddcfd76100.tar.gz fpm-f2803321f8eef2fcbe6ccaaab8dcaaddcfd76100.zip | |
move beginning of function as do not see doc showing in FORD
| -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 '?')." |