OSDN Git Service

2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / list_read_12.f90
1 ! { dg-do run }
2 ! PR58324 Bogus end of file condition
3 integer :: i, ios
4 open(99, access='stream', form='unformatted')
5 write(99) "5 a"
6 close(99)
7
8 open(99, access='sequential', form='formatted')
9 read(99, *, iostat=ios) i
10 if (ios /= 0) call abort
11 end