After the end of file is read, the file data is corrupted - [dranta:~/tests/gfortran-D] dir% gfortran -o write17 write17.f [dranta:~/tests/gfortran-D] dir% write17 538976288 Abort [dranta:~/tests/gfortran-D] dir% cat write17.f integer data data=-1 open(unit=11,status='scratch',form='unformatted') write(11)data read(11,end= 1000 )data 1000 continue rewind 11 read(11,end= 1001 )data 1001 continue if(data.ne.-1)then write(6,*)data call abort endif close(11) end
-- Summary: file data corrupted after reading end of file Product: gcc Version: 4.2.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: libfortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: dir at lanl dot gov GCC host triplet: powerpc-apple-darwin8.3.0 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550