re PR fortran/15750 (IOLENGTH form of INQUIRE statement not implemented)
authorJanne Blomqvist <jblomqvi@cc.hut.fi>
Tue, 22 Jun 2004 00:43:55 +0000 (03:43 +0300)
committerPaul Brook <pbrook@gcc.gnu.org>
Tue, 22 Jun 2004 00:43:55 +0000 (00:43 +0000)
commit8750f9cdec153095cc47c41b887bc86fda4a0e3e
treeceecaee98023a95b8e6865056ce0fa2cc4afb927
parent88c499cce7487e1d4b40e8c7d568db22ba59d90e
re PR fortran/15750 (IOLENGTH form of INQUIRE statement not implemented)

PR fortran/15750
* io.c (gfc_match_inquire): Bugfix for iolength related stuff.
(gfc_resolve_inquire): Resolve the iolength tag.  Return
SUCCESS at end of function if no failure has occured.
* resolve.c (resolve_code): Resolve if iolength is encountered.
* trans-io.c: (ioparm_iolength, iocall_iolength,
iocall_iolength_done): New variables.
(last_dt): Add IOLENGTH.
(gfc_build_io_library_fndecls ): Set iolength related variables.
(gfc_trans_iolength): Implement.
(gfc_trans_dt_end): Treat iolength as a third form of data transfer.
libgfortran/
PR fortran/15750
* inquire.c (st_inquire): Add comment
* io.h (st_parameter): Add iolength.
(st_iolength, st_iolength_done): Declare.
* transfer.c (iolength_transfer, iolength_transfer_init,
st_iolength, st_iolength_done): New functions.
testsuite/
* gfortran.fortran-torture/execute/iolength_1.f90: New test.
* gfortran.fortran-torture/execute/iolength_3.f90: New test.

From-SVN: r83472
gcc/fortran/ChangeLog
gcc/fortran/io.c
gcc/fortran/resolve.c
gcc/fortran/trans-io.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.fortran-torture/execute/iolength_3.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/inquire.c
libgfortran/io/io.h
libgfortran/io/transfer.c