old-autovect-branch/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,  int4)
  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)