xref: /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ioparm.def (revision 4c3eb207d36f67d31994830c0a694161fc1ca39b)
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