build(stop_and_print): HAVE_STOP_AND_PRINT_SUPPORT

This commit defined and uses a new macro to remove the new
stop_and_print feature and corresponding tests with compilers
or compiler versions that do do not compile the code correctly.

Author: rouson

include/language-support.F90

@@ -14,6 +14,12 @@
 #define GCC_GE_MINIMUM
 #endif
 
+#if defined(__GFORTRAN__) || __flang_major__ >= 20 || __INTEL_COMPILER >= 20260000
+#  define HAVE_STOP_AND_PRINT_SUPPORT 1
+#else
+#  define HAVE_STOP_AND_PRINT_SUPPORT 0
+#endif
+
 ! If not already determined, make a compiler-dependent determination of whether Julienne may use
 ! multi-image features such as `this_image()` and `sync all`.
 #ifndef HAVE_MULTI_IMAGE_SUPPORT

src/julienne/julienne_stop_and_print_m.F90

@@ -1,6 +1,10 @@
 ! Copyright (c), The Regents of the University of California and Sourcery Institute
 ! Terms of use are as specified in LICENSE.txt
 
+#include "language-support.F90"
+
+#if HAVE_STOP_AND_PRINT_SUPPORT
+
 module julienne_stop_and_print_m
   !! Define a pure subroutine that formats and prints various data types during error termination
   use julienne_string_m, only : string_t
@@ -64,3 +68,4 @@ pure module function character_stop_code(stuff) result(stop_code)
   end interface
 
 end module julienne_stop_and_print_m
+#endif

src/julienne/julienne_stop_and_print_s.F90

@@ -1,6 +1,10 @@
 ! Copyright (c), The Regents of the University of California and Sourcery Institute
 ! Terms of use are as specified in LICENSE.txt
 
+#include "language-support.F90"
+
+#if HAVE_STOP_AND_PRINT_SUPPORT
+
 submodule(julienne_stop_and_print_m) julienne_stop_and_print_s
   use julienne_string_m, only : operator(.csv.), operator(.separatedBy.)
   use julienne_file_m, only : file_t
@@ -173,3 +177,5 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer)
   end procedure
 
 end submodule julienne_stop_and_print_s
+
+#endif

test/driver.F90

@@ -27,8 +27,7 @@ program test_suite_driver
   associate(test_harness => test_harness_t([           &
      test_fixture_t(                  assert_test_t()) &
     ,test_fixture_t(                     bin_test_t()) &
-#if (__FLANG_MAJOR__ > 0) && (__FLANG_MAJOR__ < 20)
-#else
+#if HAVE_STOP_AND_PRINT_SUPPORT
     ,test_fixture_t(     character_stop_code_test_t()) &
 #endif
     ,test_fixture_t(                 formats_test_t()) &

test/modules/character_stop_code_test_m.F90

@@ -3,6 +3,8 @@
 
 #include "language-support.F90"
 
+#if HAVE_STOP_AND_PRINT_SUPPORT
+
 module character_stop_code_test_m
   !! Check data partitioning across bins
   use julienne_m, only : &
@@ -67,15 +69,6 @@ function results() result(test_results)
       ,test_description_t(string_t("converting a 1D string_t array into a CSV character stop code")           ) &
       ,test_description_t(string_t("converting a file_t object into a new-line-separated character stop code")) &
       ,test_description_t(string_t("converting a writable_t child object into character stop code")           ) &
-#elif __FLANG_MAJOR__ > 19
-      ! Skip all tests
-       test_description_t(string_t("converting scalars to character stop codes")                              ) &
-      ,test_description_t(string_t("converting 1D arrays to comma-separated-value (CSV) character stop codes")) &
-      ,test_description_t(string_t("converting 2D arrays to new-line-separated CSV character stop codes")     ) &
-      ,test_description_t(string_t("converting 3D arrays to new-line-separated CSV character stop codes")     ) &
-      ,test_description_t(string_t("converting a 1D string_t array into a CSV character stop code")           ) &
-      ,test_description_t(string_t("converting a file_t object into a new-line-separated character stop code")) &
-      ,test_description_t(string_t("converting a writable_t child object into character stop code")           ) &
 #else
       ! Run all tests
        test_description_t(string_t("converting scalars to character stop codes")                              , usher(check_intrinsic_scalars))   &
@@ -565,3 +558,5 @@ subroutine write_formatted(self, unit, edit_descriptor, v_list, iostat, iomsg)
   end subroutine
 
 end module character_stop_code_test_m
+
+#endif