Compiler flags profiles

ci/run_tests.sh

@@ -98,5 +98,36 @@ pushd c_header_only
 "$fpm" build
 popd
 
+pushd profiles_with_c
+"$fpm" build
+"$fpm" run
+popd
+
+pushd program_with_compiler_profiles
+"$fpm" build
+"$fpm" run
+popd
+
+pushd program_with_free_form_in_dot_f
+"$fpm" build
+"$fpm" run
+popd
+
+pushd "program_with_profiles_scope/primary_package"
+"$fpm" build
+"$fpm" run
+popd
+
+pushd "profiles_priorities/main_package"
+rm -rf build
+if [ `uname -s` = "Windows" ]; then
+	"$fpm" build | sed -n 's,^.*\\\([^\\ ]*\.f90 .*\) -J .*$,\1,p' | sort > log.txt
+else
+	"$fpm" build | sed -n 's,^.*/\([^/ ]*\.f90 .*\) -J .*$,\1,p' | sort > log.txt
+fi
+cmp log.txt correct_log.txt
+rm log.txt
+popd
+
 # Cleanup
 rm -rf ./*/build

example_packages/profiles_priorities/d1/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d1/app/d1.f90

@@ -0,0 +1,7 @@
+program d1
+    use d1_m, only: say_hi
+
+    implicit none
+
+    call say_hi()
+end program d1

example_packages/profiles_priorities/d1/fpm.toml

@@ -0,0 +1,21 @@
+name = "d1"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d1"
+source-dir="app"
+main="d1.f90"
+
+[profiles.debug.gfortran]
+flags="-g -O1"
+
+[profiles.debug.gfortran.windows]
+flags="/g /O1"
+
+[dependencies]
+"d11" = {path = "../d11"}
+"d12" = {path = "../d12"}
+
+

example_packages/profiles_priorities/d1/source/d1_m.f90

@@ -0,0 +1,12 @@
+module d1_m
+    use d11_m, only: create_greeting
+    use d12_m, only: get_name
+    implicit none
+
+    public :: say_hi
+contains
+    subroutine say_hi()
+        print *, create_greeting("hello"), get_name("developer","fpm") 
+    end subroutine say_hi
+end module d1_m
+

example_packages/profiles_priorities/d11/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d11/app/d11.f90

@@ -0,0 +1,8 @@
+program d11
+    use d11_m, only: create_greeting
+
+    implicit none
+
+    print *,create_greeting("hey")
+end program d11
+

example_packages/profiles_priorities/d11/fpm.toml

@@ -0,0 +1,15 @@
+name = "d11"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d11"
+source-dir="app"
+main="d11.f90"
+
+[profiles.debug.gfortran]
+flags="-g -O2"
+
+[profiles.debug.gfortran.windows]
+flags="/g /O2"

example_packages/profiles_priorities/d11/source/d11_m.f90

@@ -0,0 +1,14 @@
+module d11_m
+    implicit none
+
+    public :: create_greeting
+contains
+    function create_greeting(greeting) result(created)
+        character(len=*), intent(in) :: greeting
+        character(len=:), allocatable :: created
+
+        created = greeting // " "
+    end function create_greeting
+end module d11_m
+
+

example_packages/profiles_priorities/d12/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d12/app/d12.f90

@@ -0,0 +1,9 @@
+program d12
+    use d12_m, only: get_name
+
+    implicit none
+
+    print *,get_name("developer", "fpm")
+end program d12
+
+

example_packages/profiles_priorities/d12/fpm.toml

@@ -0,0 +1,10 @@
+name = "d12"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d12"
+source-dir="app"
+main="d12.f90"
+

example_packages/profiles_priorities/d12/source/d12_m.f90

@@ -0,0 +1,15 @@
+module d12_m
+    implicit none
+
+    public :: get_name
+contains
+    function get_name(name, surname) result(full_name)
+        character(len=*), intent(in) :: name, surname
+        character(len=:), allocatable :: full_name
+
+        full_name = surname // " " // name
+    end function get_name
+end module d12_m
+
+
+

example_packages/profiles_priorities/d2/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d2/app/d2.f90

@@ -0,0 +1,8 @@
+program d2
+    use d2_m, only: count_to_ten
+
+    implicit none
+
+    call count_to_ten()
+end program d2
+

example_packages/profiles_priorities/d2/fpm.toml

@@ -0,0 +1,16 @@
+name = "d2"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d2"
+source-dir="app"
+main="d2.f90"
+
+[dependencies]
+"d21" = {path = "../d21"}
+"d22" = {path = "../d22"}
+
+
+

example_packages/profiles_priorities/d2/source/d2_m.f90

@@ -0,0 +1,17 @@
+module d2_m
+    use d21_m, only: count_iter
+    use d22_m, only: count_rec
+    implicit none
+
+    public :: count_to_ten
+contains
+    subroutine count_to_ten()
+        print *,"This is test of counting to ten:"
+        print *,"Iterative version"
+        call count_iter(10)
+        print *,"Recursive version"
+        call count_rec(1,10)
+    end subroutine count_to_ten
+end module d2_m
+
+

example_packages/profiles_priorities/d21/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d21/app/d21.f90

@@ -0,0 +1,10 @@
+program d21
+    use d21_m, only: count_iter
+
+    implicit none
+
+    call count_iter(10)
+end program d21
+
+
+

example_packages/profiles_priorities/d21/fpm.toml

@@ -0,0 +1,16 @@
+name = "d21"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d21"
+source-dir="app"
+main="d21.f90"
+
+[profiles.debug.gfortran]
+flags="-g -O2"
+
+[profiles.debug.gfortran.windows]
+flags="/g /O2"
+

example_packages/profiles_priorities/d21/source/d21_m.f90

@@ -0,0 +1,15 @@
+module d21_m
+    implicit none
+
+    public :: count_iter
+contains
+    subroutine count_iter(n)
+        integer :: n, i
+        do i=1,n
+            print *,i
+        end do
+    end subroutine count_iter
+end module d21_m
+
+
+

example_packages/profiles_priorities/d22/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/d22/app/d22.f90

@@ -0,0 +1,9 @@
+program d22
+    use d22_m, only: count_rec
+
+    implicit none
+
+    call count_rec(1,10)
+end program d22
+
+

example_packages/profiles_priorities/d22/fpm.toml

@@ -0,0 +1,10 @@
+name = "d22"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d22"
+source-dir="app"
+main="d22.f90"
+

example_packages/profiles_priorities/d22/source/d22_m.f90

@@ -0,0 +1,15 @@
+module d22_m
+    implicit none
+
+    public :: count_rec
+contains
+    recursive subroutine count_rec(c, n)
+        integer :: c,n
+        if (n > 0) then
+           print *,c
+           call count_rec(c+1, n-1)
+        end if
+    end subroutine count_rec
+end module d22_m
+
+

example_packages/profiles_priorities/main_package/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_priorities/main_package/app/main.f90

@@ -0,0 +1,8 @@
+program main_package
+    use d1_m, only: say_hi
+    use d2_m, only: count_to_ten
+
+    call say_hi()
+    call count_to_ten()
+end program main_package
+

example_packages/profiles_priorities/main_package/correct_log.txt

@@ -0,0 +1,7 @@
+d11_m.f90  -g -O2
+d12_m.f90  -g -O1
+d1_m.f90  -g -O1
+d21_m.f90  -g -O2
+d22_m.f90  -g
+d2_m.f90  -g
+main.f90  -g

example_packages/profiles_priorities/main_package/fpm.toml

@@ -0,0 +1,12 @@
+name = "main_package"
+
+[profiles.debug.gfortran]
+flags="-g"
+
+[profiles.debug.gfortran.windows]
+flags="/g"
+
+[dependencies]
+"d1" = {path = "../d1"}
+"d2" = {path = "../d2"}
+

example_packages/profiles_priorities/main_package/log_1.txt

@@ -0,0 +1,7 @@
+d11_m.f90  -g -O2
+d12_m.f90  -g -O1
+d21_m.f90  -g -O2
+d22_m.f90  -g
+d1_m.f90  -g -O1
+d2_m.f90  -g
+main.f90  -g

example_packages/profiles_with_c/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/profiles_with_c/app/main.f90

@@ -0,0 +1,10 @@
+program with_c_app
+use with_c
+implicit none
+
+write(*,*) "isdir('app') = ", system_isdir('app')
+write(*,*) "isdir('src') = ", system_isdir('src')
+write(*,*) "isdir('test') = ", system_isdir('test')
+write(*,*) "isdir('bench') = ", system_isdir('bench')
+
+end program with_c_app

example_packages/profiles_with_c/fpm.toml

@@ -0,0 +1,4 @@
+name = "with_c"
+
+[profiles.debug.gfortran.linux]
+c-flags="-O1 -g"

example_packages/profiles_with_c/src/c_code.c

@@ -0,0 +1,10 @@
+#include <sys/stat.h>
+/*
+ *  Decides whether a given file name is a directory.
+ *  return 1 if file exists and is a directory
+ *  Source (Public domain): https://github.com/urbanjost/M_system
+ */
+int my_isdir (const char *path) {
+   struct stat sb;
+   return stat(path, &sb) == 0 && S_ISDIR (sb.st_mode);
+}

example_packages/profiles_with_c/src/with_c.f90

@@ -0,0 +1,26 @@
+module with_c
+    use iso_c_binding, only: c_char, c_int, c_null_char
+    implicit none
+
+contains
+
+    function system_isdir(dirname)
+        ! Source (Public domain): https://github.com/urbanjost/M_system
+        !
+        implicit none
+        character(len=*),intent(in) :: dirname
+        logical                     :: system_isdir
+
+        interface
+            function c_isdir(dirname) bind (C,name="my_isdir") result (c_ierr)
+            import c_char,c_int
+            character(kind=c_char,len=1),intent(in) :: dirname(*)
+            integer(kind=c_int)                     :: c_ierr
+            end function c_isdir
+        end interface
+
+        system_isdir= c_isdir(trim(dirname)//c_null_char) == 1
+
+    end function system_isdir
+
+end module with_c

example_packages/program_with_compiler_profiles/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/program_with_compiler_profiles/app/main.f90

@@ -0,0 +1,3 @@
+program hello_world
+    print *, "Hello, World!"
+end program hello_world