diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-22 00:43:55 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-22 00:43:55 +0000 |
| commit | 6799e2f82d0b258f03b184224558ef22e73a0b6f (patch) | |
| tree | ceecaee98023a95b8e6865056ce0fa2cc4afb927 /libgfortran/io/inquire.c | |
| parent | d4e6d8361ae1fe9af98e8defb7c1be78d8d50e35 (diff) | |
| download | gcc-6799e2f82d0b258f03b184224558ef22e73a0b6f.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83472 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/inquire.c')
| -rw-r--r-- | libgfortran/io/inquire.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/io/inquire.c b/libgfortran/io/inquire.c index 20bea1f887d..36957dde58f 100644 --- a/libgfortran/io/inquire.c +++ b/libgfortran/io/inquire.c @@ -348,6 +348,8 @@ inquire_via_filename (void) } +/* Library entry point for the INQUIRE statement (non-IOLENGTH + form). */ void st_inquire (void) |