From 014ec6ee5fcb77e38dca4a6f272349f4859b03c5 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 15 Aug 2006 23:03:28 +0000 Subject: re PR fortran/25828 ([f2003] ACCESS='STREAM' io support) 2006-08-15 Jerry DeLisle 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