Merge pull request #96 from BerkeleyLab/fix-gfortran-13

Workaround gfortran 13 issue

Author: rouson

src/julienne/julienne_test_s.F90

@@ -4,16 +4,29 @@
 #include "language-support.F90"
 
 submodule(julienne_test_m) julienne_test_s
+  use julienne_test_description_m, only : test_description_t
   implicit none
 
 contains
 
+#if __GNUC__ && ( __GNUC__ > 13)
+
   module procedure run
     associate(matching_descriptions => filter(test_descriptions, test%subject()))
       test_results = matching_descriptions%run()
     end associate
   end procedure
 
+#else
+
+  module procedure run
+    type(test_description_t), allocatable :: matching_descriptions(:)
+    matching_descriptions = filter(test_descriptions, test%subject())
+    test_results = matching_descriptions%run()
+  end procedure
+
+#endif
+
   module procedure report
     logical, save :: do_first_report = .true.
 

test/idiomatic-assertion-failure-test.F90 renamed to test/idiomatic_assertion_failure_test.F90

@@ -3,7 +3,7 @@
 
 #include "julienne-assert-macros.h"
 
-program test_julienne_assert_intentional_failure
+program idiomatic_assertion_failure_test
   !! Conditionally test an assertion that is hardwired to fail.
   use julienne_m, only : call_julienne_assert_, command_line_t, operator(.equalsExpected.)
   implicit none
@@ -23,4 +23,3 @@ program test_julienne_assert_intentional_failure
   end associate
 
 end program
-

test/logical-assertion-failure-test.F90 renamed to test/logical_assertion_failure_test.F90

@@ -3,7 +3,7 @@
 
 #include "julienne-assert-macros.h"
 
-program test_julienne_assert_intentional_failure
+program logical_assertion_failure_test
   !! Conditionally test an assertion that is hardwired to fail.
   use julienne_m, only : call_julienne_assert_, command_line_t, operator(.equalsExpected.)
   implicit none
@@ -25,4 +25,3 @@ program test_julienne_assert_intentional_failure
   end associate
 
 end program
-