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
