diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_error_9.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_error_9.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_error_9.f b/gcc/testsuite/gfortran.dg/fmt_error_9.f index d8abb851210..1d677509e37 100644 --- a/gcc/testsuite/gfortran.dg/fmt_error_9.f +++ b/gcc/testsuite/gfortran.dg/fmt_error_9.f @@ -9,18 +9,18 @@ x = 555.25 write (line,str,iostat=istat, iomsg=msg) 1.0d0, 1.234 - if (istat.ne.5006 .or. msg(1:15).ne."Period required") call abort - if (line.ne."initial string") call abort + if (istat.ne.5006 .or. msg(1:15).ne."Period required") STOP 1 + if (line.ne."initial string") STOP 2 str = '(1pf0.15)' write (line,str,iostat=istat, iomsg=msg) 1.0d0 - if (istat.ne.0) call abort + if (istat.ne.0) STOP 3 read (*,str,iostat=istat, iomsg=msg) x - if (istat.ne.5006 .or. msg(1:15).ne."Positive width ") call abort - if (x.ne.555.25) call abort + if (istat.ne.5006 .or. msg(1:15).ne."Positive width ") STOP 4 + if (x.ne.555.25) STOP 5 write (line,'(1pd24.15e11.3)') 1.0d0, 1.234 - if (line.ne." 1.000000000000000D+00 1.234E+00") call abort + if (line.ne." 1.000000000000000D+00 1.234E+00") STOP 6 str = '(1p2d24.15)' msg = " 1.000000000000000D+00 1.233999967575073D+00That's it!" |