test(julienne): fix GCC 13-14.2 workaround

Author: rouson

test/julienne/driver.F90

@@ -12,8 +12,8 @@ program test_suite_driver
   use prif_co_sum_test_m, only : prif_co_sum_test_t
   use prif_image_queries_test_m, only : prif_image_queries_test_t
   use prif_num_images_test_m, only : prif_num_images_test_t
-  use prif_this_image_no_coarray_test_m, only : prif_this_image_no_coarray_test_t
   use prif_sync_images_test_m, only : prif_sync_images_test_t
+  use prif_this_image_no_coarray_test_m, only : prif_this_image_no_coarray_test_t
   implicit none
 
   associate(test_harness => test_harness_t([ &
@@ -26,8 +26,8 @@ program test_suite_driver
     ,test_fixture_t( prif_co_sum_test_t() ) &
     ,test_fixture_t( prif_image_queries_test_t() ) &
     ,test_fixture_t( prif_num_images_test_t() ) &
-    ,test_fixture_t( prif_this_image_no_coarray_test_t() ) &
     ,test_fixture_t( prif_sync_images_test_t() ) &
+    ,test_fixture_t( prif_this_image_no_coarray_test_t() ) &
   ]))
     call test_harness%report_results
   end associate

test/julienne/prif_co_max_test_m.F90

@@ -68,14 +68,14 @@ function results() result(test_results)
         ,check_character_ptr => check_character
 
       test_results = prif_co_max_test%run([ &
-         test_description_t("computing element-wise maxima for integer(c_int32_t) scalars", check_32_bit_integer) &
-        ,test_description_t("computing element-wise maxima for a 1D default integer array", check_default_integer) &
-        ,test_description_t("computing element-wise maxima for a 1D integer(c_int8_t) array", check_8_bit_integer) &
-        ,test_description_t("computing element-wise maxima for a 1D integer(c_int16_t) array", check_16_bit_integer) &
-        ,test_description_t("computing element-wise maxima for a 1D integer(c_int64_t array", check_64_bit_integer) &
-        ,test_description_t("computing element-wise maxima for a 2D real(c_float) array", check_32_bit_real) &
-        ,test_description_t("computing element-wise maxima for a 1D real(c_double array", check_64_bit_real) &
-        ,test_description_t("computing element-wise maxima for character scalars", check_character) &
+         test_description_t("computing element-wise maxima for integer(c_int32_t) scalars", check_32_bit_integer_ptr) &
+        ,test_description_t("computing element-wise maxima for a 1D default integer array", check_default_integer_ptr) &
+        ,test_description_t("computing element-wise maxima for a 1D integer(c_int8_t) array", check_8_bit_integer_ptr) &
+        ,test_description_t("computing element-wise maxima for a 1D integer(c_int16_t) array", check_16_bit_integer_ptr) &
+        ,test_description_t("computing element-wise maxima for a 1D integer(c_int64_t array", check_64_bit_integer_ptr) &
+        ,test_description_t("computing element-wise maxima for a 2D real(c_float) array", check_32_bit_real_ptr) &
+        ,test_description_t("computing element-wise maxima for a 1D real(c_double array", check_64_bit_real_ptr) &
+        ,test_description_t("computing element-wise maxima for character scalars", check_character_ptr) &
       ])
     end function
 

test/julienne/prif_co_reduce_test_m.F90

@@ -80,10 +80,10 @@ function results() result(test_results)
 #endif
 
     test_results = prif_co_reduce_test%run([ &
-       test_description_t("performing a logical .and. reduction", check_logical) &
-      ,test_description_t("performing a derived type reduction", check_derived_type_reduction) &
+       test_description_t("performing a logical .and. reduction", check_logical_ptr) &
+      ,test_description_t("performing a derived type reduction", check_derived_type_reduction_ptr) &
 #if HAVE_PARAM_DERIVED
-      ,test_description_t("performing a parameterized derived type reduction", check_type_parameter_reduction) &
+      ,test_description_t("performing a parameterized derived type reduction", check_type_parameter_reduction_ptr) &
 #endif
       ])
   end function