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