diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/f2003_io_7.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/f2003_io_7.f03 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_7.f03 b/gcc/testsuite/gfortran.dg/f2003_io_7.f03 index 6d2c11dfcbe..a9228a86ff9 100644 --- a/gcc/testsuite/gfortran.dg/f2003_io_7.f03 +++ b/gcc/testsuite/gfortran.dg/f2003_io_7.f03 @@ -9,19 +9,19 @@ program iotests real(kind=8), dimension(3) :: b ! write(a,'(f10.3,s,f10.3,sp,f10.3,ss,f10.3)',SIGN='PLUS') pi, pi, pi, pi - if (a /= " +3.142 3.142 +3.142 3.142") call abort + if (a /= " +3.142 3.142 +3.142 3.142") STOP 1 ! open(8,sign="plus") write(8,'(f10.3,dc,f10.3,dp,f10.3)',DECIMAL='COMMA',& & sign="suppress") pi, pi, pi rewind(8) read(8,'(a)') a - if (a /= " 3,142 3,142 3.142") call abort + if (a /= " 3,142 3,142 3.142") STOP 2 close(8,status="delete") ! ! "123456789 123456789 12345678901 write(a,'(a)') "53 256.84, 2 2 2. ; 33.3 3 1 " read(a, '(f9.2,1x,f8.2,2x,f11.7)', blank="zero") b(1),b(2),b(3) - if (any(abs(b - [530256.84, 20202.00, 33.3030001]) > .03)) call abort + if (any(abs(b - [530256.84, 20202.00, 33.3030001]) > .03)) STOP 3 end program iotests |