comparison gcc/testsuite/gfortran.dg/write_rewind_1.f @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
7 idata = -42 7 idata = -42
8 open(unit=11,form='unformatted') 8 open(unit=11,form='unformatted')
9 write(11)idata 9 write(11)idata
10 write(11)idata 10 write(11)idata
11 read(11,end= 1000 )idata 11 read(11,end= 1000 )idata
12 call abort() 12 STOP 1
13 1000 continue 13 1000 continue
14 rewind 11 14 rewind 11
15 write(11)idata 15 write(11)idata
16 close(11,status='keep') 16 close(11,status='keep')
17 open(unit=11,form='unformatted') 17 open(unit=11,form='unformatted')
18 rewind 11 18 rewind 11
19 read(11)idata 19 read(11)idata
20 read(11, end=250)idata 20 read(11, end=250)idata
21 call abort() 21 STOP 2
22 250 continue 22 250 continue
23 close(11,status='delete') 23 close(11,status='delete')
24 end 24 end