[flang-rt][device] Enable MapException on the device with error message (#171705)

As it is done in `flang-rt/lib/runtime/edit-input.cpp`, emit a runtime
error message when trying to raise IEEE exception on the device.
`MapException` and `feraiseexcept` are used in the lowering of the
nearest intrinsic even on the device.

Author: clementval

flang-rt/lib/runtime/CMakeLists.txt

@@ -33,6 +33,7 @@ set(supported_sources
   edit-input.cpp
   edit-output.cpp
   environment.cpp
+  exceptions.cpp
   external-unit.cpp
   extrema.cpp
   file.cpp

flang-rt/lib/runtime/exceptions.cpp

@@ -49,9 +49,14 @@ extern "C" {
 
 // Map a set of Fortran ieee_arithmetic module exceptions to a libm fenv.h
 // excepts value.
-uint32_t RTNAME(MapException)(uint32_t excepts) {
+uint32_t RTDEF(MapException)(uint32_t excepts) {
   Terminator terminator{__FILE__, __LINE__};
 
+#if defined(RT_DEVICE_COMPILATION)
+  terminator.Crash(
+      "not implemented yet: raising IEEE FP exception in device code: %d",
+      excepts);
+#else
   static constexpr uint32_t v{FE_INVALID};
   static constexpr uint32_t s{__FE_DENORM};
   static constexpr uint32_t z{FE_DIVBYZERO};
@@ -74,6 +79,7 @@ uint32_t RTNAME(MapException)(uint32_t excepts) {
   }
   uint32_t except_value = map[excepts];
   return except_value;
+#endif
 }
 
 // The following exception processing routines have a libm call component,
@@ -87,11 +93,13 @@ void RTNAME(feclearexcept)(uint32_t excepts) {
   _mm_setcsr(_mm_getcsr() & ~(excepts & _MM_EXCEPT_MASK));
 #endif
 }
-void RTNAME(feraiseexcept)(uint32_t excepts) {
+void RTDEF(feraiseexcept)(uint32_t excepts) {
+#if !defined(RT_DEVICE_COMPILATION)
   feraiseexcept(excepts);
 #if defined(_MM_EXCEPT_DENORM)
   _mm_setcsr(_mm_getcsr() | (excepts & _MM_EXCEPT_MASK));
 #endif
+#endif
 }
 uint32_t RTNAME(fetestexcept)(uint32_t excepts) {
 #if defined(_MM_EXCEPT_DENORM)

flang/include/flang/Runtime/exceptions.h

@@ -24,12 +24,12 @@ extern "C" {
 
 // Map a set of IEEE_FLAG_TYPE exception values to a libm fenv.h excepts value.
 // This mapping is done at runtime to support cross compilation.
-std::uint32_t RTNAME(MapException)(std::uint32_t excepts);
+std::uint32_t RTDECL(MapException)(std::uint32_t excepts);
 
 // Exception processing functions that call the corresponding libm functions,
 // and also include support for denormal exceptions where available.
 void RTNAME(feclearexcept)(std::uint32_t excepts);
-void RTNAME(feraiseexcept)(std::uint32_t excepts);
+void RTDECL(feraiseexcept)(std::uint32_t excepts);
 std::uint32_t RTNAME(fetestexcept)(std::uint32_t excepts);
 void RTNAME(fedisableexcept)(std::uint32_t excepts);
 void RTNAME(feenableexcept)(std::uint32_t excepts);