OSDN Git Service

2008-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org
[pf3gnuchains/gcc-fork.git] / gcc / fortran / ioparm.def
1 #ifndef IOPARM_common_libreturn_mask
2 #define IOPARM_common_libreturn_mask    3
3 #define IOPARM_common_libreturn_ok      0
4 #define IOPARM_common_libreturn_error   1
5 #define IOPARM_common_libreturn_end     2
6 #define IOPARM_common_libreturn_eor     3
7 #define IOPARM_common_err               (1 << 2)
8 #define IOPARM_common_end               (1 << 3)
9 #define IOPARM_common_eor               (1 << 4)
10 #endif
11 IOPARM (common,  flags,         0,       int4)
12 IOPARM (common,  unit,          0,       int4)
13 IOPARM (common,  filename,      0,       pchar)
14 IOPARM (common,  line,          0,       int4)
15 IOPARM (common,  iomsg,         1 << 6,  char2)
16 IOPARM (common,  iostat,        1 << 5,  pint4)
17 IOPARM (open,    common,        0,       common)
18 IOPARM (open,    recl_in,       1 << 7,  int4)
19 IOPARM (open,    file,          1 << 8,  char2)
20 IOPARM (open,    status,        1 << 9,  char1)
21 IOPARM (open,    access,        1 << 10, char2)
22 IOPARM (open,    form,          1 << 11, char1)
23 IOPARM (open,    blank,         1 << 12, char2)
24 IOPARM (open,    position,      1 << 13, char1)
25 IOPARM (open,    action,        1 << 14, char2)
26 IOPARM (open,    delim,         1 << 15, char1)
27 IOPARM (open,    pad,           1 << 16, char2)
28 IOPARM (open,    convert,       1 << 17, char1)
29 IOPARM (open,    decimal,       1 << 18, char2)
30 IOPARM (open,    encoding,      1 << 19, char1)
31 IOPARM (open,    round,         1 << 20, char2)
32 IOPARM (open,    sign,          1 << 21, char1)
33 IOPARM (open,    asynchronous,  1 << 22, char2)
34 IOPARM (close,   common,        0,       common)
35 IOPARM (close,   status,        1 << 7,  char1)
36 IOPARM (filepos, common,        0,       common)
37 IOPARM (inquire, common,        0,       common)
38 IOPARM (inquire, exist,         1 << 7,  pint4)
39 IOPARM (inquire, opened,        1 << 8,  pint4)
40 IOPARM (inquire, number,        1 << 9,  pint4)
41 IOPARM (inquire, named,         1 << 10, pint4)
42 IOPARM (inquire, nextrec,       1 << 11, pint4)
43 IOPARM (inquire, recl_out,      1 << 12, pint4)
44 IOPARM (inquire, strm_pos_out,  1 << 13, pintio)
45 IOPARM (inquire, file,          1 << 14, char1)
46 IOPARM (inquire, access,        1 << 15, char2)
47 IOPARM (inquire, form,          1 << 16, char1)
48 IOPARM (inquire, blank,         1 << 17, char2)
49 IOPARM (inquire, position,      1 << 18, char1)
50 IOPARM (inquire, action,        1 << 19, char2)
51 IOPARM (inquire, delim,         1 << 20, char1)
52 IOPARM (inquire, pad,           1 << 21, char2)
53 IOPARM (inquire, name,          1 << 22, char1)
54 IOPARM (inquire, sequential,    1 << 23, char2)
55 IOPARM (inquire, direct,        1 << 24, char1)
56 IOPARM (inquire, formatted,     1 << 25, char2)
57 IOPARM (inquire, unformatted,   1 << 26, char1)
58 IOPARM (inquire, read,          1 << 27, char2)
59 IOPARM (inquire, write,         1 << 28, char1)
60 IOPARM (inquire, readwrite,     1 << 29, char2)
61 IOPARM (inquire, convert,       1 << 30, char1)
62 IOPARM (inquire, flags2,        1 << 31, int4)
63 IOPARM (inquire, asynchronous,  1 << 0,  char1)
64 IOPARM (inquire, decimal,       1 << 1,  char2)
65 IOPARM (inquire, encoding,      1 << 2,  char1)
66 IOPARM (inquire, pending,       1 << 3,  pint4)
67 IOPARM (inquire, round,         1 << 4,  char1)
68 IOPARM (inquire, sign,          1 << 5,  char2)
69 IOPARM (inquire, size,          1 << 6,  pint4)
70 IOPARM (inquire, id,            1 << 7,  pint4)
71 IOPARM (wait,    common,        0,       common)
72 IOPARM (wait,    id,            1 << 7,  pint4)
73 #ifndef IOPARM_dt_list_format
74 #define IOPARM_dt_list_format           (1 << 7)
75 #define IOPARM_dt_namelist_read_mode    (1 << 8)
76 #endif
77 IOPARM (dt,      common,        0,       common)
78 IOPARM (dt,      rec,           1 << 9,  intio)
79 IOPARM (dt,      size,          1 << 10, pintio)
80 IOPARM (dt,      iolength,      1 << 11, pintio)
81 IOPARM (dt,      internal_unit_desc, 0,  parray)
82 IOPARM (dt,      format,        1 << 12, char1)
83 IOPARM (dt,      advance,       1 << 13, char2)
84 IOPARM (dt,      internal_unit, 1 << 14, char1)
85 IOPARM (dt,      namelist_name, 1 << 15, char2)
86 IOPARM (dt,      id,            1 << 16, pint4)
87 IOPARM (dt,      pos,           1 << 17, intio)
88 IOPARM (dt,      asynchronous,  1 << 18, char1)
89 IOPARM (dt,      blank,         1 << 19, char2)
90 IOPARM (dt,      decimal,       1 << 20, char1)
91 IOPARM (dt,      delim,         1 << 21, char2)
92 IOPARM (dt,      pad,           1 << 22, char1)
93 IOPARM (dt,      round,         1 << 23, char2)
94 IOPARM (dt,      sign,          1 << 24, char1)
95 IOPARM (dt,      u,             0,       pad)
96 #define IOPARM_dt_f2003                 (1 << 25)