Compiler flags profiles

ci/run_tests.sh

@@ -98,5 +98,32 @@ 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
+"$fpm" build | sed -n 's,^.*/\([^/ ]*\.f90 .*\) -J .*$,\1,p' | sort > log.txt
+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,18 @@
+name = "d1"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d1"
+source-dir="app"
+main="d1.f90"
+
+[profiles.debug.gfortran.linux]
+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,12 @@
+name = "d11"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d11"
+source-dir="app"
+main="d11.f90"
+
+[profiles.debug.gfortran.linux]
+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,13 @@
+name = "d21"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="d21"
+source-dir="app"
+main="d21.f90"
+
+[profiles.debug.gfortran.linux]
+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,9 @@
+name = "main_package"
+
+[profiles.debug.gfortran.linux]
+flags="-g"
+
+[dependencies]
+"d1" = {path = "../d1"}
+"d2" = {path = "../d2"}
+

example_packages/program_with_profiles_scope/primary_package/fpm.toml

@@ -1,8 +1,5 @@
 name = "hello_world"
 
-[profiles.debug]
-flags="-Og"
-
 [profiles.debug.gfortran.linux]
 flags="-g"