diff gcc/testsuite/gfortran.dg/fmt_white.f @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/fmt_white.f	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/fmt_white.f	Thu Oct 25 07:37:49 2018 +0900
@@ -12,9 +12,9 @@
       write(line,10) x
  10                                                            format(g1
      *      1.4)
-      if (line.ne."  12.34") call abort()
+      if (line.ne."  12.34") STOP 1
       line = ""
       write(line,20) x
  20   format(t r 2 , g 1 1 . 4)
-      if (line.ne."    12.34") call abort()
+      if (line.ne."    12.34") STOP 2
       end