fix(string_test):no string-array reads if gfortran

BerkeleyLab · Oct 25, 2024 · a06c827 · a06c827
1 parent c761b15
commit a06c827
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/test/string_test.F90 b/test/string_test.F90
@@ -83,7 +83,9 @@ function results() result(test_results)
       check_allocation_ptr, supports_equivalence_ptr, supports_non_equivalence_ptr, supports_concatenation_ptr, &
       assigns_string_ptr, assigns_character_ptr, constructs_from_integer_ptr, constructs_from_real_ptr, concatenates_ptr, &
       extracts_key_ptr, extracts_real_ptr, extracts_string_ptr, extracts_logical_ptr, extracts_integer_array_ptr, &
-      extracts_string_array_ptr, extracts_real_array_ptr, extracts_integer_ptr, extracts_file_base_ptr, extracts_file_name_ptr, &
+      extracts_real_array_ptr, extracts_integer_ptr, extracts_file_base_ptr, extracts_file_name_ptr, &
+      ! Remove code that exposes a gfortran compiler bug:
+      ! extracts_string_array_ptr, &
       extracts_character_ptr, extracts_double_precision_value_ptr, extracts_dp_array_value_ptr
 
     check_allocation_ptr => check_allocation
@@ -102,7 +104,8 @@ function results() result(test_results)
     extracts_character_ptr => extracts_character_value
     extracts_logical_ptr => extracts_logical_value
     extracts_integer_array_ptr  => extracts_integer_array_value
-    extracts_string_array_ptr  => extracts_string_array_value
+   ! Remove code that exposes a gfortran compiler bug:
+   !extracts_string_array_ptr  => extracts_string_array_value
     extracts_real_array_ptr => extracts_real_array_value
     extracts_dp_array_value_ptr => extracts_dp_array_value
     extracts_integer_ptr => extracts_integer_value
@@ -131,8 +134,9 @@ function results() result(test_results)
       test_description_t(string_t("extracting a logical value from a colon-separated key/value pair"), extracts_logical_ptr), &
       test_description_t( &
         string_t("extracting an integer array value from a colon-separated key/value pair"), extracts_integer_array_ptr), &
-      test_description_t( &
-        string_t("extracting an string array value from a colon-separated key/value pair"), extracts_string_array_ptr), &
+     ! Remove code that exposes a gfortran compiler bug:
+     !test_description_t( &
+     !  string_t("extracting an string array value from a colon-separated key/value pair"), extracts_string_array_ptr), &
       test_description_t( &
         string_t("extracting an real array value from a colon-separated key/value pair"), extracts_real_array_ptr), &
       test_description_t( &
@@ -296,6 +300,7 @@ function extracts_logical_value() result(passed)
 #endif
   end function
 
+#ifndef __GFORTRAN__
   function extracts_string_array_value() result(passed)
     logical passed
 
@@ -315,6 +320,7 @@ function extracts_string_array_value() result(passed)
     end block
 #endif
   end function
+#endif
 
   function extracts_integer_array_value() result(passed)
     logical passed