[Bug fortran/34564] New: Reading zero variables from a zero-sized file fails

[burnus at gcc dot gnu dot org]

More bugs found via the test suite.

implicit none
integer :: ios
open(9,file='tmp.dat',status='REPLACE')
write(9,'(a)',advance='NO')
close(9)
open(9,FILE='tmp.dat',status='OLD',position='REWIND')
read(9,'(a)',ADVANCE='NO',iostat=ios)
if(ios /= 0) print *, 'ERROR: Expected ios = 0, got: ios = ', ios
read(9,'(a)',ADVANCE='NO',iostat=ios)
if(ios /= 0) print *, 'ERROR: Expected ios = 0, got: ios = ', ios
close(9, status='delete')
END


-- 
           Summary: Reading zero variables from a zero-sized file fails
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org
OtherBugsDependingO 32834
             nThis:


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