OSDN Git Service

977e4f030d4999770eae6c0c470a6e22e2a9c533
[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 (close,   common,        0,       common)
30 IOPARM (close,   status,        1 << 7,  char1)
31 IOPARM (filepos, common,        0,       common)
32 IOPARM (inquire, common,        0,       common)
33 IOPARM (inquire, exist,         1 << 7,  pint4)
34 IOPARM (inquire, opened,        1 << 8,  pint4)
35 IOPARM (inquire, number,        1 << 9,  pint4)
36 IOPARM (inquire, named,         1 << 10, pint4)
37 IOPARM (inquire, nextrec,       1 << 11, pint4)
38 IOPARM (inquire, recl_out,      1 << 12, pint4)
39 IOPARM (inquire, file,          1 << 13, char1)
40 IOPARM (inquire, access,        1 << 14, char2)
41 IOPARM (inquire, form,          1 << 15, char1)
42 IOPARM (inquire, blank,         1 << 16, char2)
43 IOPARM (inquire, position,      1 << 17, char1)
44 IOPARM (inquire, action,        1 << 18, char2)
45 IOPARM (inquire, delim,         1 << 19, char1)
46 IOPARM (inquire, pad,           1 << 20, char2)
47 IOPARM (inquire, name,          1 << 21, char1)
48 IOPARM (inquire, sequential,    1 << 22, char2)
49 IOPARM (inquire, direct,        1 << 23, char1)
50 IOPARM (inquire, formatted,     1 << 24, char2)
51 IOPARM (inquire, unformatted,   1 << 25, char1)
52 IOPARM (inquire, read,          1 << 26, char2)
53 IOPARM (inquire, write,         1 << 27, char1)
54 IOPARM (inquire, readwrite,     1 << 28, char2)
55 IOPARM (inquire, convert,       1 << 29, char1)
56 #ifndef IOPARM_dt_list_format
57 #define IOPARM_dt_list_format           (1 << 7)
58 #define IOPARM_dt_namelist_read_mode    (1 << 8)
59 #endif
60 IOPARM (dt,      common,        0,       common)
61 IOPARM (dt,      rec,           1 << 9,  large_io_int)
62 IOPARM (dt,      size,          1 << 10, pint4)
63 IOPARM (dt,      iolength,      1 << 11, pint4)
64 IOPARM (dt,      internal_unit_desc, 0,  parray)
65 IOPARM (dt,      format,        1 << 12, char1)
66 IOPARM (dt,      advance,       1 << 13, char2)
67 IOPARM (dt,      internal_unit, 1 << 14, char1)
68 IOPARM (dt,      namelist_name, 1 << 15, char2)
69 IOPARM (dt,      u,             0,       pad)