diff gcc/testsuite/gfortran.dg/fmt_en.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/fmt_en.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/fmt_en.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -148,7 +148,7 @@
     call checkfmt("(en15.6)", -2.9296875E-03,"  -2.929688E-03")
 
     ! print *, n_tst, n_cnt, n_skip
-    if (n_cnt /= 0) call abort
+    if (n_cnt /= 0) STOP 1
     if (all(.not. l_skip)) write (10, *) "All kinds rounded to nearest"
     close (10)