[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


--- 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

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

More information about the Gcc-bugs mailing list