ioparm.def revision 1.1.1.3 1 1.1.1.3 mrg /* Copyright (C) 2005-2022 Free Software Foundation, Inc.
2 1.1 mrg
3 1.1 mrg This file is part of GCC.
4 1.1 mrg
5 1.1 mrg GCC is free software; you can redistribute it and/or modify it under
6 1.1 mrg the terms of the GNU General Public License as published by the Free
7 1.1 mrg Software Foundation; either version 3, or (at your option) any later
8 1.1 mrg version.
9 1.1 mrg
10 1.1 mrg GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11 1.1 mrg WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 1.1 mrg FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 1.1 mrg for more details.
14 1.1 mrg
15 1.1 mrg You should have received a copy of the GNU General Public License
16 1.1 mrg along with GCC; see the file COPYING3. If not see
17 1.1 mrg <http://www.gnu.org/licenses/>. */
18 1.1 mrg
19 1.1 mrg /* Make sure to keep in sync with libgfortran/io/io.h (st_parameter_*). */
20 1.1 mrg #ifndef IOPARM_common_libreturn_mask
21 1.1 mrg #define IOPARM_common_libreturn_mask 3
22 1.1 mrg #define IOPARM_common_libreturn_ok 0
23 1.1 mrg #define IOPARM_common_libreturn_error 1
24 1.1 mrg #define IOPARM_common_libreturn_end 2
25 1.1 mrg #define IOPARM_common_libreturn_eor 3
26 1.1 mrg #define IOPARM_common_err (1 << 2)
27 1.1 mrg #define IOPARM_common_end (1 << 3)
28 1.1 mrg #define IOPARM_common_eor (1 << 4)
29 1.1 mrg #endif
30 1.1 mrg IOPARM (common, flags, 0, int4)
31 1.1 mrg IOPARM (common, unit, 0, int4)
32 1.1 mrg IOPARM (common, filename, 0, pchar)
33 1.1 mrg IOPARM (common, line, 0, int4)
34 1.1 mrg IOPARM (common, iomsg, 1 << 6, char2)
35 1.1 mrg IOPARM (common, iostat, 1 << 5, pint4)
36 1.1 mrg IOPARM (open, common, 0, common)
37 1.1 mrg IOPARM (open, recl_in, 1 << 7, intio)
38 1.1 mrg IOPARM (open, file, 1 << 8, char2)
39 1.1 mrg IOPARM (open, status, 1 << 9, char1)
40 1.1 mrg IOPARM (open, access, 1 << 10, char2)
41 1.1 mrg IOPARM (open, form, 1 << 11, char1)
42 1.1 mrg IOPARM (open, blank, 1 << 12, char2)
43 1.1 mrg IOPARM (open, position, 1 << 13, char1)
44 1.1 mrg IOPARM (open, action, 1 << 14, char2)
45 1.1 mrg IOPARM (open, delim, 1 << 15, char1)
46 1.1 mrg IOPARM (open, pad, 1 << 16, char2)
47 1.1 mrg IOPARM (open, convert, 1 << 17, char1)
48 1.1 mrg IOPARM (open, decimal, 1 << 18, char2)
49 1.1 mrg IOPARM (open, encoding, 1 << 19, char1)
50 1.1 mrg IOPARM (open, round, 1 << 20, char2)
51 1.1 mrg IOPARM (open, sign, 1 << 21, char1)
52 1.1 mrg IOPARM (open, asynchronous, 1 << 22, char2)
53 1.1 mrg IOPARM (open, newunit, 1 << 23, pint4)
54 1.1 mrg IOPARM (open, readonly, 1 << 24, int4)
55 1.1 mrg IOPARM (open, cc, 1 << 25, char2)
56 1.1 mrg IOPARM (open, share, 1 << 26, char1)
57 1.1 mrg IOPARM (close, common, 0, common)
58 1.1 mrg IOPARM (close, status, 1 << 7, char1)
59 1.1 mrg IOPARM (filepos, common, 0, common)
60 1.1 mrg IOPARM (inquire, common, 0, common)
61 1.1 mrg IOPARM (inquire, exist, 1 << 7, pint4)
62 1.1 mrg IOPARM (inquire, opened, 1 << 8, pint4)
63 1.1 mrg IOPARM (inquire, number, 1 << 9, pint4)
64 1.1 mrg IOPARM (inquire, named, 1 << 10, pint4)
65 1.1 mrg IOPARM (inquire, nextrec, 1 << 11, pintio)
66 1.1 mrg IOPARM (inquire, recl_out, 1 << 12, pintio)
67 1.1 mrg IOPARM (inquire, strm_pos_out, 1 << 13, pintio)
68 1.1 mrg IOPARM (inquire, file, 1 << 14, char1)
69 1.1 mrg IOPARM (inquire, access, 1 << 15, char2)
70 1.1 mrg IOPARM (inquire, form, 1 << 16, char1)
71 1.1 mrg IOPARM (inquire, blank, 1 << 17, char2)
72 1.1 mrg IOPARM (inquire, position, 1 << 18, char1)
73 1.1 mrg IOPARM (inquire, action, 1 << 19, char2)
74 1.1 mrg IOPARM (inquire, delim, 1 << 20, char1)
75 1.1 mrg IOPARM (inquire, pad, 1 << 21, char2)
76 1.1 mrg IOPARM (inquire, name, 1 << 22, char1)
77 1.1 mrg IOPARM (inquire, sequential, 1 << 23, char2)
78 1.1 mrg IOPARM (inquire, direct, 1 << 24, char1)
79 1.1 mrg IOPARM (inquire, formatted, 1 << 25, char2)
80 1.1 mrg IOPARM (inquire, unformatted, 1 << 26, char1)
81 1.1 mrg IOPARM (inquire, read, 1 << 27, char2)
82 1.1 mrg IOPARM (inquire, write, 1 << 28, char1)
83 1.1 mrg IOPARM (inquire, readwrite, 1 << 29, char2)
84 1.1 mrg IOPARM (inquire, convert, 1 << 30, char1)
85 1.1 mrg IOPARM (inquire, flags2, 1U << 31, int4)
86 1.1 mrg IOPARM (inquire, asynchronous, 1 << 0, char1)
87 1.1 mrg IOPARM (inquire, decimal, 1 << 1, char2)
88 1.1 mrg IOPARM (inquire, encoding, 1 << 2, char1)
89 1.1 mrg IOPARM (inquire, round, 1 << 3, char2)
90 1.1 mrg IOPARM (inquire, sign, 1 << 4, char1)
91 1.1 mrg IOPARM (inquire, pending, 1 << 5, pint4)
92 1.1 mrg IOPARM (inquire, size, 1 << 6, pintio)
93 1.1 mrg IOPARM (inquire, id, 1 << 7, pint4)
94 1.1 mrg IOPARM (inquire, iqstream, 1 << 8, char1)
95 1.1 mrg IOPARM (inquire, share, 1 << 9, char2)
96 1.1 mrg IOPARM (inquire, cc, 1 << 10, char1)
97 1.1 mrg IOPARM (wait, common, 0, common)
98 1.1 mrg IOPARM (wait, id, 1 << 7, pint4)
99 1.1 mrg IOPARM (dt, common, 0, common)
100 1.1 mrg #define IOPARM_dt_list_format (1 << 7)
101 1.1 mrg #define IOPARM_dt_namelist_read_mode (1 << 8)
102 1.1 mrg IOPARM (dt, rec, 1 << 9, intio)
103 1.1 mrg IOPARM (dt, size, 1 << 10, pintio)
104 1.1 mrg IOPARM (dt, iolength, 1 << 11, pintio)
105 1.1 mrg IOPARM (dt, internal_unit_desc, 0, parray)
106 1.1 mrg IOPARM (dt, format, 1 << 12, char1)
107 1.1 mrg IOPARM (dt, advance, 1 << 13, char2)
108 1.1 mrg IOPARM (dt, internal_unit, 1 << 14, char1)
109 1.1 mrg IOPARM (dt, namelist_name, 1 << 15, char2)
110 1.1 mrg IOPARM (dt, id, 1 << 16, pint4)
111 1.1 mrg IOPARM (dt, pos, 1 << 17, intio)
112 1.1 mrg IOPARM (dt, asynchronous, 1 << 18, char1)
113 1.1 mrg IOPARM (dt, blank, 1 << 19, char2)
114 1.1 mrg IOPARM (dt, decimal, 1 << 20, char1)
115 1.1 mrg IOPARM (dt, delim, 1 << 21, char2)
116 1.1 mrg IOPARM (dt, pad, 1 << 22, char1)
117 1.1 mrg IOPARM (dt, round, 1 << 23, char2)
118 1.1 mrg IOPARM (dt, sign, 1 << 24, char1)
119 1.1 mrg #define IOPARM_dt_f2003 (1 << 25)
120 1.1 mrg #define IOPARM_dt_dtio (1 << 26)
121 1.1 mrg #define IOPARM_dt_dec_ext (1 << 27)
122 1.1 mrg IOPARM (dt, u, 0, pad)
123