1 2 3 4 5 6
! PR 13919, segfault when file is empty open(unit=8,status='scratch') read(8,*,end=1)i call abort 1 continue end