Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/read_eof_1.f90 @ 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 data(i)=-3 | 7 data(i)=-3 |
8 enddo | 8 enddo |
9 open(unit=11,status='scratch',form='unformatted') | 9 open(unit=11,status='scratch',form='unformatted') |
10 write(11)data | 10 write(11)data |
11 read(11,end= 1000 )data | 11 read(11,end= 1000 )data |
12 call abort() | 12 STOP 1 |
13 1000 continue | 13 1000 continue |
14 backspace 11 | 14 backspace 11 |
15 backspace 11 | 15 backspace 11 |
16 write(11)data | 16 write(11)data |
17 rewind 11 | 17 rewind 11 |
18 data = 0 | 18 data = 0 |
19 read(11,end= 1001 )data | 19 read(11,end= 1001 )data |
20 1001 continue | 20 1001 continue |
21 read(11,end= 1002 )data | 21 read(11,end= 1002 )data |
22 call abort | 22 STOP 1 |
23 1002 continue | 23 1002 continue |
24 if (.not. all(data == -3)) call abort() | 24 if (.not. all(data == -3)) STOP 2 |
25 close(11) | 25 close(11) |
26 end | 26 end |
27 | 27 |