From f2803321f8eef2fcbe6ccaaab8dcaaddcfd76100 Mon Sep 17 00:00:00 2001
From: "John S. Urban" <urbanjost@comcast.net>
Date: Sun, 21 Feb 2021 09:08:07 -0500
Subject: move beginning of function as do not see doc showing in FORD

---
 fpm/src/fpm.f90         | 1 -
 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 '?')."
 
-- 
cgit v1.2.3