[Bug fortran/53796] I/O INQUIRE of RECL: If not specified in OPEN, the default value should be returned (sequential access)

jvdelisle at gcc dot gnu.org gcc-bugzilla@gcc.gnu.org
Fri Jun 29 23:43:00 GMT 2012


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=53796

--- Comment #9 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-06-29 23:43:23 UTC ---
We have more then one thing to fix here.

Try this variation:

integer(kind=8) :: s, r
open(unit=1, file='testsize.f90', status='old', recl=500)
inquire(unit=1, size=s, recl=r)
print *, 'size=', s, ' recl=', r
end

I will continue dabbling with this while we wait for the Comment #7 response.



More information about the Gcc-bugs mailing list