fix: warnings from new version of gfortran

JeffIrwin · Jun 9, 2022 · e9bc905 · e9bc905
1 parent 63fcf6a
commit e9bc905
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/fpm.toml b/fpm.toml
@@ -1,5 +1,5 @@
 name = "garden"
-version = "1.0.2"
+version = "1.0.3"
 license = "MIT"
 author = "Brad Richardson"
 maintainer = "[email protected]"

diff --git a/src/garden/result_m.f90 b/src/garden/result_m.f90
@@ -95,7 +95,7 @@ pure function failure_description(self, colorize) result(description)
         if (self%passed()) then
             description = ""
         else
-            failed = .not.self%results%passed()
+            allocate(failed, source = .not.self%results%passed())
             num_failed = count(failed)
             j = 1
             allocate(failed_messages(num_failed))

diff --git a/src/garden/test_collection_result_m.f90 b/src/garden/test_collection_result_m.f90
@@ -51,7 +51,7 @@ pure recursive function failure_description( &
         if (self%passed()) then
             description = ""
         else
-            failed = [(.not.self%results(i)%passed(), i = 1, size(self%results))]
+            allocate(failed, source = [(.not.self%results(i)%passed(), i = 1, size(self%results))])
             num_failed = count(failed)
             j= 1
             allocate(failed_messages(num_failed))