Skip to content
Snippets Groups Projects
  • Janne Blomqvist's avatar
    8750f9cd
    re PR fortran/15750 (IOLENGTH form of INQUIRE statement not implemented) · 8750f9cd
    Janne Blomqvist authored
    	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
    8750f9cd
    History
    re PR fortran/15750 (IOLENGTH form of INQUIRE statement not implemented)
    Janne Blomqvist authored
    	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