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.
6 open(77,status
='scratch')
12 if (i
/= 0 .or
. j
/= 0) call abort