diff options
author | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
---|---|---|
committer | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
commit | 88a3ea34080ad3087a8191fbf479543153175d59 (patch) | |
tree | 34eaec34d3588e09f9a77abba776266f124dc823 /gcc/testsuite/gfortran.dg/f2003_io_7.f03 | |
parent | 25e15aaed275cdfef34b3ee6eb3cb4b43a48d44f (diff) | |
parent | e65055a558093bd4fc0b1b0024b7814cc187b8e8 (diff) | |
download | gcc-88a3ea34080ad3087a8191fbf479543153175d59.tar.gz |
Merge from trunk revision 257954.gccgo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4
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 |