From 014ec6ee5fcb77e38dca4a6f272349f4859b03c5 Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 15 Aug 2006 23:03:28 +0000
Subject: re PR fortran/25828 ([f2003] ACCESS='STREAM' io support)

2006-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/25828
	* gfortran.h: Add new pointer for stream position to st_inquire.
	Rename gfc_large_io_int_kind to gfc_intio_kind.
	* trans-types.c (gfc_init_kinds): use gfc_intio_kind.
	* io.c: Add new IO tag for file position going in and another for out.
	(match_dt_element): Match new tag_spos.
	(gfc_resolve_dt): Resolve new tag_spos.
	(gfc_free_inquire): Free inquire->strm_pos.
	(match_inquire_element): Match new tag_strm_out.
	(gfc_resolve_inquire): Resolve new tag_strm_out.
	* trans-io.c: Rename IOPARM_type_large_io_int to IOPARM_type_intio.
	(gfc_build_st_parameter): Same.
	(gfc_build_io_library_fndecls) Same. and add build pointer type pintio.
	(gfc_trans_inquire): Translate strm_pos for inquire.
	* ioparm.def: Reorder flags to accomodate addition of new inquire
	flag for strm_pos_out and add it in.

From-SVN: r116171
---
 gcc/fortran/ioparm.def | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

(limited to 'gcc/fortran/ioparm.def')

diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def
index 977e4f0..8c09a29 100644
--- a/gcc/fortran/ioparm.def
+++ b/gcc/fortran/ioparm.def
@@ -36,29 +36,30 @@ IOPARM (inquire, number,	1 << 9,  pint4)
 IOPARM (inquire, named,		1 << 10, pint4)
 IOPARM (inquire, nextrec,	1 << 11, pint4)
 IOPARM (inquire, recl_out,	1 << 12, pint4)
-IOPARM (inquire, file,		1 << 13, char1)
-IOPARM (inquire, access,	1 << 14, char2)
-IOPARM (inquire, form,		1 << 15, char1)
-IOPARM (inquire, blank,		1 << 16, char2)
-IOPARM (inquire, position,	1 << 17, char1)
-IOPARM (inquire, action,	1 << 18, char2)
-IOPARM (inquire, delim,		1 << 19, char1)
-IOPARM (inquire, pad,		1 << 20, char2)
-IOPARM (inquire, name,		1 << 21, char1)
-IOPARM (inquire, sequential,	1 << 22, char2)
-IOPARM (inquire, direct,	1 << 23, char1)
-IOPARM (inquire, formatted,	1 << 24, char2)
-IOPARM (inquire, unformatted,	1 << 25, char1)
-IOPARM (inquire, read,		1 << 26, char2)
-IOPARM (inquire, write,		1 << 27, char1)
-IOPARM (inquire, readwrite,	1 << 28, char2)
-IOPARM (inquire, convert,       1 << 29, char1)
+IOPARM (inquire, strm_pos_out,	1 << 13, pintio)
+IOPARM (inquire, file,		1 << 14, char1)
+IOPARM (inquire, access,	1 << 15, char2)
+IOPARM (inquire, form,		1 << 16, char1)
+IOPARM (inquire, blank,		1 << 17, char2)
+IOPARM (inquire, position,	1 << 18, char1)
+IOPARM (inquire, action,	1 << 19, char2)
+IOPARM (inquire, delim,		1 << 20, char1)
+IOPARM (inquire, pad,		1 << 21, char2)
+IOPARM (inquire, name,		1 << 22, char1)
+IOPARM (inquire, sequential,	1 << 23, char2)
+IOPARM (inquire, direct,	1 << 24, char1)
+IOPARM (inquire, formatted,	1 << 25, char2)
+IOPARM (inquire, unformatted,	1 << 26, char1)
+IOPARM (inquire, read,		1 << 27, char2)
+IOPARM (inquire, write,		1 << 28, char1)
+IOPARM (inquire, readwrite,	1 << 29, char2)
+IOPARM (inquire, convert,       1 << 30, char1)
 #ifndef IOPARM_dt_list_format
 #define IOPARM_dt_list_format		(1 << 7)
 #define IOPARM_dt_namelist_read_mode	(1 << 8)
 #endif
 IOPARM (dt,      common,	0,	 common)
-IOPARM (dt,      rec,		1 << 9,  large_io_int)
+IOPARM (dt,      rec,		1 << 9,  intio)
 IOPARM (dt,      size,		1 << 10, pint4)
 IOPARM (dt,      iolength,	1 << 11, pint4)
 IOPARM (dt,      internal_unit_desc, 0,  parray)
-- 
cgit v1.1

