From: peter klausler <pklausler@nvidia.com>
Date: Fri, 17 Jul 2020 18:17:39 +0000 (-0700)
Subject: [flang] Improve output from a STOP statement
X-Git-Tag: llvmorg-13-init~17502
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cbff0c75b9ea120bc6ec1ecc2e8d431fd6143236;p=platform%2Fupstream%2Fllvm.git

[flang] Improve output from a STOP statement

Add a missing newline to IEEE FP flag formatting, and
don't neglect to emit STOP when there's no code number.

Reviewed By: tskeith

Differential Revision: https://reviews.llvm.org/D84060
---

diff --git a/flang/runtime/stop.cpp b/flang/runtime/stop.cpp
index 49592b7..3b8c138 100644
--- a/flang/runtime/stop.cpp
+++ b/flang/runtime/stop.cpp
@@ -40,6 +40,7 @@ static void DescribeIEEESignaledExceptions() {
     if (excepts & FE_UNDERFLOW) {
       std::fputs(" UNDERFLOW", stderr);
     }
+    std::fputc('\n', stderr);
   }
 }
 
@@ -52,10 +53,11 @@ static void CloseAllExternalUnits(const char *why) {
     int code, bool isErrorStop, bool quiet) {
   CloseAllExternalUnits("STOP statement");
   if (!quiet) {
+    std::fprintf(stderr, "Fortran %s", isErrorStop ? "ERROR STOP" : "STOP");
     if (code != EXIT_SUCCESS) {
-      std::fprintf(stderr, "Fortran %s: code %d\n",
-          isErrorStop ? "ERROR STOP" : "STOP", code);
+      std::fprintf(stderr, ": code %d\n", code);
     }
+    std::fputc('\n', stderr);
     DescribeIEEESignaledExceptions();
   }
   std::exit(code);