move beginning of function as do not see doc showing in FORD

Author: urbanjost

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.

fpm/src/fpm_strings.f90

@@ -485,6 +485,8 @@ pure function join(str,sep,trm,left,right) result (string)
       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 '?')."