1*4c3eb207Smrg/* Copyright (C) 2005-2020 Free Software Foundation, Inc. 2627f7eb2Smrg 3627f7eb2SmrgThis file is part of GCC. 4627f7eb2Smrg 5627f7eb2SmrgGCC is free software; you can redistribute it and/or modify it under 6627f7eb2Smrgthe terms of the GNU General Public License as published by the Free 7627f7eb2SmrgSoftware Foundation; either version 3, or (at your option) any later 8627f7eb2Smrgversion. 9627f7eb2Smrg 10627f7eb2SmrgGCC is distributed in the hope that it will be useful, but WITHOUT ANY 11627f7eb2SmrgWARRANTY; without even the implied warranty of MERCHANTABILITY or 12627f7eb2SmrgFITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 13627f7eb2Smrgfor more details. 14627f7eb2Smrg 15627f7eb2SmrgYou should have received a copy of the GNU General Public License 16627f7eb2Smrgalong with GCC; see the file COPYING3. If not see 17627f7eb2Smrg<http://www.gnu.org/licenses/>. */ 18627f7eb2Smrg 19627f7eb2Smrg/* Make sure to keep in sync with libgfortran/io/io.h (st_parameter_*). */ 20627f7eb2Smrg#ifndef IOPARM_common_libreturn_mask 21627f7eb2Smrg#define IOPARM_common_libreturn_mask 3 22627f7eb2Smrg#define IOPARM_common_libreturn_ok 0 23627f7eb2Smrg#define IOPARM_common_libreturn_error 1 24627f7eb2Smrg#define IOPARM_common_libreturn_end 2 25627f7eb2Smrg#define IOPARM_common_libreturn_eor 3 26627f7eb2Smrg#define IOPARM_common_err (1 << 2) 27627f7eb2Smrg#define IOPARM_common_end (1 << 3) 28627f7eb2Smrg#define IOPARM_common_eor (1 << 4) 29627f7eb2Smrg#endif 30627f7eb2SmrgIOPARM (common, flags, 0, int4) 31627f7eb2SmrgIOPARM (common, unit, 0, int4) 32627f7eb2SmrgIOPARM (common, filename, 0, pchar) 33627f7eb2SmrgIOPARM (common, line, 0, int4) 34627f7eb2SmrgIOPARM (common, iomsg, 1 << 6, char2) 35627f7eb2SmrgIOPARM (common, iostat, 1 << 5, pint4) 36627f7eb2SmrgIOPARM (open, common, 0, common) 37627f7eb2SmrgIOPARM (open, recl_in, 1 << 7, intio) 38627f7eb2SmrgIOPARM (open, file, 1 << 8, char2) 39627f7eb2SmrgIOPARM (open, status, 1 << 9, char1) 40627f7eb2SmrgIOPARM (open, access, 1 << 10, char2) 41627f7eb2SmrgIOPARM (open, form, 1 << 11, char1) 42627f7eb2SmrgIOPARM (open, blank, 1 << 12, char2) 43627f7eb2SmrgIOPARM (open, position, 1 << 13, char1) 44627f7eb2SmrgIOPARM (open, action, 1 << 14, char2) 45627f7eb2SmrgIOPARM (open, delim, 1 << 15, char1) 46627f7eb2SmrgIOPARM (open, pad, 1 << 16, char2) 47627f7eb2SmrgIOPARM (open, convert, 1 << 17, char1) 48627f7eb2SmrgIOPARM (open, decimal, 1 << 18, char2) 49627f7eb2SmrgIOPARM (open, encoding, 1 << 19, char1) 50627f7eb2SmrgIOPARM (open, round, 1 << 20, char2) 51627f7eb2SmrgIOPARM (open, sign, 1 << 21, char1) 52627f7eb2SmrgIOPARM (open, asynchronous, 1 << 22, char2) 53627f7eb2SmrgIOPARM (open, newunit, 1 << 23, pint4) 54627f7eb2SmrgIOPARM (open, readonly, 1 << 24, int4) 55627f7eb2SmrgIOPARM (open, cc, 1 << 25, char2) 56627f7eb2SmrgIOPARM (open, share, 1 << 26, char1) 57627f7eb2SmrgIOPARM (close, common, 0, common) 58627f7eb2SmrgIOPARM (close, status, 1 << 7, char1) 59627f7eb2SmrgIOPARM (filepos, common, 0, common) 60627f7eb2SmrgIOPARM (inquire, common, 0, common) 61627f7eb2SmrgIOPARM (inquire, exist, 1 << 7, pint4) 62627f7eb2SmrgIOPARM (inquire, opened, 1 << 8, pint4) 63627f7eb2SmrgIOPARM (inquire, number, 1 << 9, pint4) 64627f7eb2SmrgIOPARM (inquire, named, 1 << 10, pint4) 65627f7eb2SmrgIOPARM (inquire, nextrec, 1 << 11, pintio) 66627f7eb2SmrgIOPARM (inquire, recl_out, 1 << 12, pintio) 67627f7eb2SmrgIOPARM (inquire, strm_pos_out, 1 << 13, pintio) 68627f7eb2SmrgIOPARM (inquire, file, 1 << 14, char1) 69627f7eb2SmrgIOPARM (inquire, access, 1 << 15, char2) 70627f7eb2SmrgIOPARM (inquire, form, 1 << 16, char1) 71627f7eb2SmrgIOPARM (inquire, blank, 1 << 17, char2) 72627f7eb2SmrgIOPARM (inquire, position, 1 << 18, char1) 73627f7eb2SmrgIOPARM (inquire, action, 1 << 19, char2) 74627f7eb2SmrgIOPARM (inquire, delim, 1 << 20, char1) 75627f7eb2SmrgIOPARM (inquire, pad, 1 << 21, char2) 76627f7eb2SmrgIOPARM (inquire, name, 1 << 22, char1) 77627f7eb2SmrgIOPARM (inquire, sequential, 1 << 23, char2) 78627f7eb2SmrgIOPARM (inquire, direct, 1 << 24, char1) 79627f7eb2SmrgIOPARM (inquire, formatted, 1 << 25, char2) 80627f7eb2SmrgIOPARM (inquire, unformatted, 1 << 26, char1) 81627f7eb2SmrgIOPARM (inquire, read, 1 << 27, char2) 82627f7eb2SmrgIOPARM (inquire, write, 1 << 28, char1) 83627f7eb2SmrgIOPARM (inquire, readwrite, 1 << 29, char2) 84627f7eb2SmrgIOPARM (inquire, convert, 1 << 30, char1) 85627f7eb2SmrgIOPARM (inquire, flags2, 1U << 31, int4) 86627f7eb2SmrgIOPARM (inquire, asynchronous, 1 << 0, char1) 87627f7eb2SmrgIOPARM (inquire, decimal, 1 << 1, char2) 88627f7eb2SmrgIOPARM (inquire, encoding, 1 << 2, char1) 89627f7eb2SmrgIOPARM (inquire, round, 1 << 3, char2) 90627f7eb2SmrgIOPARM (inquire, sign, 1 << 4, char1) 91627f7eb2SmrgIOPARM (inquire, pending, 1 << 5, pint4) 92627f7eb2SmrgIOPARM (inquire, size, 1 << 6, pintio) 93627f7eb2SmrgIOPARM (inquire, id, 1 << 7, pint4) 94627f7eb2SmrgIOPARM (inquire, iqstream, 1 << 8, char1) 95627f7eb2SmrgIOPARM (inquire, share, 1 << 9, char2) 96627f7eb2SmrgIOPARM (inquire, cc, 1 << 10, char1) 97627f7eb2SmrgIOPARM (wait, common, 0, common) 98627f7eb2SmrgIOPARM (wait, id, 1 << 7, pint4) 99627f7eb2SmrgIOPARM (dt, common, 0, common) 100627f7eb2Smrg#define IOPARM_dt_list_format (1 << 7) 101627f7eb2Smrg#define IOPARM_dt_namelist_read_mode (1 << 8) 102627f7eb2SmrgIOPARM (dt, rec, 1 << 9, intio) 103627f7eb2SmrgIOPARM (dt, size, 1 << 10, pintio) 104627f7eb2SmrgIOPARM (dt, iolength, 1 << 11, pintio) 105627f7eb2SmrgIOPARM (dt, internal_unit_desc, 0, parray) 106627f7eb2SmrgIOPARM (dt, format, 1 << 12, char1) 107627f7eb2SmrgIOPARM (dt, advance, 1 << 13, char2) 108627f7eb2SmrgIOPARM (dt, internal_unit, 1 << 14, char1) 109627f7eb2SmrgIOPARM (dt, namelist_name, 1 << 15, char2) 110627f7eb2SmrgIOPARM (dt, id, 1 << 16, pint4) 111627f7eb2SmrgIOPARM (dt, pos, 1 << 17, intio) 112627f7eb2SmrgIOPARM (dt, asynchronous, 1 << 18, char1) 113627f7eb2SmrgIOPARM (dt, blank, 1 << 19, char2) 114627f7eb2SmrgIOPARM (dt, decimal, 1 << 20, char1) 115627f7eb2SmrgIOPARM (dt, delim, 1 << 21, char2) 116627f7eb2SmrgIOPARM (dt, pad, 1 << 22, char1) 117627f7eb2SmrgIOPARM (dt, round, 1 << 23, char2) 118627f7eb2SmrgIOPARM (dt, sign, 1 << 24, char1) 119627f7eb2Smrg#define IOPARM_dt_f2003 (1 << 25) 120627f7eb2Smrg#define IOPARM_dt_dtio (1 << 26) 121627f7eb2Smrg#define IOPARM_dt_dec_ext (1 << 27) 122627f7eb2SmrgIOPARM (dt, u, 0, pad) 123