[Bug libfortran/26595] New: gfortran - jump to error label not working correctly after reading EOF

[dir at lanl dot gov]

The second read should jump to the label with out comment.

[dranta:~/tests/gfortran-D] dir% gfortran -o write29 write29.f
[dranta:~/tests/gfortran-D] dir% write29
At line 7 of file write29.f
Fortran runtime error: End of file
[dranta:~/tests/gfortran-D] dir% cat write29.f
      program test
      dimension idata(1011)
      open(unit=11,form='unformatted')
       read(11,end=        1000 )idata
       call abort()
 1000  continue
       read(11,err=        1001 )idata
       call abort()
 1001  continue
      close(11,status='delete')  
      stop
      end


-- 
           Summary: gfortran - jump to error label not working correctly
                    after reading EOF
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26595