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