$ cat a.f90
PROGRAM TEST
INTEGER :: A
OPEN(10, FORM="UNFORMATTED", RECL=1024)
A = -1
WRITE(10) A
END PROGRAM TEST
$ gfortran a.f90 && ./a.out
At line 5 of file a.f90
Fortran runtime error: I/O past end of record on unformatted file
$ pgf90 a.f90 && ./a.out && xxd fort.10
0000000: 0400 0000 ffff ffff 0400 0000 ............
$ sunf90 a.f90 && ./a.out && xxd fort.10
0000000: 0400 0000 ffff ffff 0400 0000 ............
$ ifort a.f90 && ./a.out && xxd fort.10
0000000: 0400 0000 ffff ffff 0400 0000 ............
--
Summary: Runtime error on legal code using RECL
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: wrong-code
Severity: normal
Priority: P3
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: fxcoudert at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31099
