15 lines
337 B
Fortran
15 lines
337 B
Fortran
! { dg-do run }
|
|
! PR 17992: Reading an empty file should yield zero with pad='YES'
|
|
! (which is the default).
|
|
! Test case supplied by milan@cmm.ki.si.
|
|
program main
|
|
open(77,status='scratch')
|
|
write(77,'(A)') '',''
|
|
rewind(77)
|
|
i = 42
|
|
j = 42
|
|
read(77,'(/2i2)') i,j
|
|
if (i /= 0 .or. j /= 0) call abort
|
|
close(77)
|
|
end program main
|