1! { dg-do run }
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.
5program 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)
14end program main
15