add caf case to fpm_compiler.f90; debug mingw help_test.f90

Author: urbanjost

fpm/src/fpm_compiler.f90

@@ -43,6 +43,28 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
 
     select case(build_name//'_'//compiler)
 
+    case('release_caf') 
+       module_path_switch='-J '
+       fflags='&
+       & -O3&
+       & -Wimplicit-interface&
+       & -fPIC&
+       & -fmax-errors=1&
+       & -ffast-math&
+       & -funroll-loops&
+       &'
+    case('debug_caf')
+       module_path_switch='-J '
+       fflags = '&
+       & -Wall&
+       & -Wextra&
+       & -Wimplicit-interface&
+       & -fPIC -fmax-errors=1&
+       & -g&
+       & -fbounds-check&
+       & -fcheck-array-temporaries&
+       & -fbacktrace&
+       &'
     case('release_gfortran') 
        module_path_switch='-J '
        fflags='&

fpm/test/help_test/help_test.f90

@@ -1,7 +1,7 @@
 program help_test
 use,intrinsic :: iso_fortran_env, only : stdin=>input_unit, stdout=>output_unit, stderr=>error_unit
 implicit none
-integer                        :: i
+integer                        :: i, j
 integer                        :: be, af
 character(len=:),allocatable   :: path
 integer                        :: estat, cstat
@@ -54,13 +54,17 @@ program help_test
       endif
       !!write(*,*)findloc(page1,'NAME').eq.1
       be=count(.not.tally)
-      tally=[tally,merge(.true.,.false.,count(page1.eq.'NAME').eq.1)]
-      tally=[tally,merge(.true.,.false.,count(page1.eq.'SYNOPSIS').eq.1)]
-      tally=[tally,merge(.true.,.false.,count(page1.eq.'DESCRIPTION').eq.1)]
+      tally=[tally,count(page1.eq.'NAME').eq.1]
+      tally=[tally,count(page1.eq.'SYNOPSIS').eq.1]
+      tally=[tally,count(page1.eq.'DESCRIPTION').eq.1]
       af=count(.not.tally)
       if(be.ne.af)then
          write(*,*)'<ERROR>missing expected sections in ',names(i)
-         write(*,'(a)')page1
+         write(*,*)page1(1) ! assuming at least size 1 for debugging mingw
+         write(*,*)count(page1.eq.'NAME')
+         write(*,*)count(page1.eq.'SYNOPSIS')
+         write(*,*)count(page1.eq.'DESCRIPTION')
+         write(*,'(a)')(trim(page1(j)),j=1,size(page1))
       endif
       write(*,*)'<INFO>have completed ',count(tally),' tests'
       call wipe('fpm_scratch_help.txt')