fallback source_location

Author: scivision

test/iso_fortran_binding/CMakeLists.txt

@@ -17,6 +17,9 @@ add_executable(sampling sampling.cpp sampling.f90)
 set_property(TARGET sampling PROPERTY LINKER_LANGUAGE CXX)
 
 add_test(NAME sampling COMMAND sampling)
+if(CMAKE_Fortran_COMPILER_ID STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 12)
+  set_property(TEST sampling PROPERTY DISABLED true)
+endif()
 endif()
 
 if(HAVE_CFI_IS_CONTIGUOUS)

test/iso_fortran_binding/sampling.cpp

@@ -9,7 +9,10 @@
 #include <algorithm>
 #include <vector>
 #include <string>
+
+#if __has_include(<source_location>)
 #include <source_location>
+#endif
 
 #include <ISO_Fortran_binding.h>
 
@@ -54,8 +57,13 @@ std::string cfiGetErrorString(int stat) {
 void check_cfi(int s)
 {
   if (s != CFI_SUCCESS){
+#if defined(__cpp_lib_source_location)
     constexpr std::source_location loc = std::source_location::current();
-    std::cerr << loc.file_name() << ":" << loc.line() << " CFI API failed with error: (" << s << ") " << cfiGetErrorString(s) << "\n";
+    std::cerr << loc.file_name() << ":" << loc.line() <<
+#else
+    std::cerr <<
+#endif
+    " CFI API failed with error: (" << s << ") " << cfiGetErrorString(s) << "\n";
   }
 }
 
@@ -163,5 +171,5 @@ int main(int argc, char const *argv[])
     std::cout << "pi = " <<   estimate_pi( N ) << '\n';
     std::cout << "pi = " << f_estimate_pi( N ) << '\n';
 
-    return 0;
+    return EXIT_SUCCESS;
 }