set the first test in the table with the 0th index of real_kinds

fortran-lang · Jun 10, 2024 · 1e9b470 · 1e9b470
1 parent 2ca52a2
commit 1e9b470
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/quadrature/test_simps.fypp b/test/quadrature/test_simps.fypp
@@ -19,7 +19,9 @@ contains
         type(unittest_type), allocatable, intent(out) :: testsuite(:)
 
         testsuite = [ &
-            new_unittest("simps_sp", test_simps_sp) &
+            #:for k1, t1 in REAL_KINDS_TYPES[0:1] # set the first test independently to initialize the table
+            new_unittest("simps_${k1}$", test_simps_sp) &
+            #:endfor
             #:for k1, t1 in REAL_KINDS_TYPES[1:]
             , new_unittest("simps_${k1}$", test_simps_${k1}$) &
             #:endfor