PROGRAM ReclBug OPEN (UNIT= 11, FILE= 'bla', ACCESS= 'SEQUENTIAL', & FORM= 'UNFORMATTED', RECL= 1000000, & STATUS= 'UNKNOWN', ACTION= 'WRITE', IOSTAT= iostat )
IF (iostat /= 0) STOP WRITE (11) 1,2,3 CLOSE (11, STATUS= 'KEEP') END PROGRAM ReclBug !! > gfortran recl-bug.f90 -static !! > ./a.out !! At line 10 of file recl-bug.f90 !! Fortran runtime error: I/O past end of record on unformatted file -- Summary: recl specified for unformatted sequential file does not work Product: gcc Version: unknown Status: UNCONFIRMED Severity: normal Priority: P3 Component: libfortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: gcc-bugs at wbfb dot de GCC host triplet: amd64 Linux http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31706