commit ebe24a2a3116a5668c3fff27524d485e6956072e
author Peter Steinfeld <psteinfeld@nvidia.com> Thu May 05 21:54:57 2022
committer Peter Steinfeld <psteinfeld@nvidia.com> Thu May 05 22:20:01 2022
tree 1363b2920c179d9653f6419d53e18e5e32b7bc8e
parent e7aed737eb2d8fb2150f38e48d1c3e0108931999

[flang] Change "unsupported" messages in the runtime to "not yet implemented"

If a programmer is able to compile and link a program that contains types that
are not yet supported by the runtime, it must be because they're not yet
implemented.

This change will make it easier to find unimplemented code in tests.

Differential Revision: https://reviews.llvm.org/D125046

flang/runtime/tools.h

diff --git a/flang/runtime/tools.h b/flang/runtime/tools.h
index 5740eed..dd35917 100644
--- a/flang/runtime/tools.h
+++ b/flang/runtime/tools.h
@@ -134,7 +134,7 @@
       return FUNC<TypeCategory::Integer, 16>{}(std::forward<A>(x)...);
 #endif
     default:
-      terminator.Crash("unsupported INTEGER(KIND=%d)", kind);
+      terminator.Crash("not yet implemented: INTEGER(KIND=%d)", kind);
     }
   case TypeCategory::Real:
     switch (kind) {
@@ -156,7 +156,7 @@
       return FUNC<TypeCategory::Real, 16>{}(std::forward<A>(x)...);
 #endif
     default:
-      terminator.Crash("unsupported REAL(KIND=%d)", kind);
+      terminator.Crash("not yet implemented: REAL(KIND=%d)", kind);
     }
   case TypeCategory::Complex:
     switch (kind) {
@@ -178,7 +178,7 @@
       return FUNC<TypeCategory::Complex, 16>{}(std::forward<A>(x)...);
 #endif
     default:
-      terminator.Crash("unsupported COMPLEX(KIND=%d)", kind);
+      terminator.Crash("not yet implemented: COMPLEX(KIND=%d)", kind);
     }
   case TypeCategory::Character:
     switch (kind) {
@@ -189,7 +189,7 @@
     case 4:
       return FUNC<TypeCategory::Character, 4>{}(std::forward<A>(x)...);
     default:
-      terminator.Crash("unsupported CHARACTER(KIND=%d)", kind);
+      terminator.Crash("not yet implemented: CHARACTER(KIND=%d)", kind);
     }
   case TypeCategory::Logical:
     switch (kind) {
@@ -202,10 +202,11 @@
     case 8:
       return FUNC<TypeCategory::Logical, 8>{}(std::forward<A>(x)...);
     default:
-      terminator.Crash("unsupported LOGICAL(KIND=%d)", kind);
+      terminator.Crash("not yet implemented: LOGICAL(KIND=%d)", kind);
     }
   default:
-    terminator.Crash("unsupported type category(%d)", static_cast<int>(cat));
+    terminator.Crash(
+        "not yet implemented: type category(%d)", static_cast<int>(cat));
   }
 }
 
@@ -227,7 +228,7 @@
     return FUNC<16>{}(std::forward<A>(x)...);
 #endif
   default:
-    terminator.Crash("unsupported INTEGER(KIND=%d)", kind);
+    terminator.Crash("not yet implemented: INTEGER(KIND=%d)", kind);
   }
 }
 
@@ -253,7 +254,7 @@
     return FUNC<16>{}(std::forward<A>(x)...);
 #endif
   default:
-    terminator.Crash("unsupported REAL/COMPLEX(KIND=%d)", kind);
+    terminator.Crash("not yet implemented: REAL/COMPLEX(KIND=%d)", kind);
   }
 }
 
@@ -267,7 +268,7 @@
   case 4:
     return FUNC<4>{}(std::forward<A>(x)...);
   default:
-    terminator.Crash("unsupported CHARACTER(KIND=%d)", kind);
+    terminator.Crash("not yet implemented: CHARACTER(KIND=%d)", kind);
   }
 }
 
@@ -283,7 +284,7 @@
   case 8:
     return FUNC<8>{}(std::forward<A>(x)...);
   default:
-    terminator.Crash("unsupported LOGICAL(KIND=%d)", kind);
+    terminator.Crash("not yet implemented: LOGICAL(KIND=%d)", kind);
   }
 }