This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/30056] New: Exceeding recl on direct access
- From: "tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 2 Dec 2006 22:02:12 -0000
- Subject: [Bug libfortran/30056] New: Exceeding recl on direct access
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
The error condition isn't detected for write, and is
mis-represented as an EOF for read.
$ cat exceed-recl-direct.f
program main
integer i,j
open (10, form="unformatted", access="direct", recl=4)
write (10, rec=1, err=10) 1,2
print *,"did not detect error on write"
10 continue
read (10, rec=1, err=20) i, j
print *,"did not detect error on read"
20 continue
end
$ g77 exceed-recl-direct.f
$ ./a.out
$ gfortran exceed-recl-direct.f
$ ./a.out
did not detect error on write
At line 7 of file exceed-recl-direct.f
Fortran runtime error: End of file
Different codepath from PR 30009, nevertheless related.
--
Summary: Exceeding recl on direct access
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
OtherBugsDependingO 19292
nThis:
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30056