[flang-commits] [flang] [flang] add SYSTEM runtime and lowering intrinsics support (PR #74309)

[Peter Klausler via flang-commits]

================
@@ -282,4 +282,23 @@ std::int32_t RTNAME(GetEnvVariable)(const Descriptor &name,
   return StatOk;
 }
 
+void RTNAME(System)(const Descriptor *command, const Descriptor *exitstat,
+    const char *sourceFile, int line) {
+  Terminator terminator{sourceFile, line};
+
+  if (command) {
+    RUNTIME_CHECK(terminator, IsValidCharDescriptor(command));
+    int status{std::system(command->OffsetElement())};
----------------
klausler wrote:

How do you ensure that the Fortran character value passed to `system` is properly NUL-terminated?

https://github.com/llvm/llvm-project/pull/74309