Update concepts branch to revision 131834
[official-gcc.git] / gcc / testsuite / gfortran.dg / eor_handling_1.f90
blob20b1998b098e2c71304cee4200e9e998f09f7019
1 ! { dg-do run { target fd_truncate } }
2 ! PR 17992: Reading an empty file should yield zero with pad='YES'
3 ! (which is the default).
4 ! Test case supplied by milan@cmm.ki.si.
5 program main
6 open(77,status='scratch')
7 write(77,'(A)') '',''
8 rewind(77)
9 i = 42
10 j = 42
11 read(77,'(/2i2)') i,j
12 if (i /= 0 .or. j /= 0) call abort
13 close(77)
14 end program main