gcc/fortran/ioparm.def

   1 /* Copyright (C) 2005, 2006, 2008 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 #ifndef IOPARM_common_libreturn_mask
  20 #define IOPARM_common_libreturn_mask    3
  21 #define IOPARM_common_libreturn_ok      0
  22 #define IOPARM_common_libreturn_error   1
  23 #define IOPARM_common_libreturn_end     2
  24 #define IOPARM_common_libreturn_eor     3
  25 #define IOPARM_common_err               (1 << 2)
  26 #define IOPARM_common_end               (1 << 3)
  27 #define IOPARM_common_eor               (1 << 4)
  28 #endif
  29 IOPARM (common,  flags,         0,       int4)
  30 IOPARM (common,  unit,          0,       int4)
  31 IOPARM (common,  filename,      0,       pchar)
  32 IOPARM (common,  line,          0,       int4)
  33 IOPARM (common,  iomsg,         1 << 6,  char2)
  34 IOPARM (common,  iostat,        1 << 5,  pint4)
  35 IOPARM (open,    common,        0,       common)
  36 IOPARM (open,    recl_in,       1 << 7,  int4)
  37 IOPARM (open,    file,          1 << 8,  char2)
  38 IOPARM (open,    status,        1 << 9,  char1)
  39 IOPARM (open,    access,        1 << 10, char2)
  40 IOPARM (open,    form,          1 << 11, char1)
  41 IOPARM (open,    blank,         1 << 12, char2)
  42 IOPARM (open,    position,      1 << 13, char1)
  43 IOPARM (open,    action,        1 << 14, char2)
  44 IOPARM (open,    delim,         1 << 15, char1)
  45 IOPARM (open,    pad,           1 << 16, char2)
  46 IOPARM (open,    convert,       1 << 17, char1)
  47 IOPARM (open,    decimal,       1 << 18, char2)
  48 IOPARM (open,    encoding,      1 << 19, char1)
  49 IOPARM (open,    round,         1 << 20, char2)
  50 IOPARM (open,    sign,          1 << 21, char1)
  51 IOPARM (open,    asynchronous,  1 << 22, char2)
  52 IOPARM (open,    newunit,       1 << 23, pint4)
  53 IOPARM (close,   common,        0,       common)
  54 IOPARM (close,   status,        1 << 7,  char1)
  55 IOPARM (filepos, common,        0,       common)
  56 IOPARM (inquire, common,        0,       common)
  57 IOPARM (inquire, exist,         1 << 7,  pint4)
  58 IOPARM (inquire, opened,        1 << 8,  pint4)
  59 IOPARM (inquire, number,        1 << 9,  pint4)
  60 IOPARM (inquire, named,         1 << 10, pint4)
  61 IOPARM (inquire, nextrec,       1 << 11, pint4)
  62 IOPARM (inquire, recl_out,      1 << 12, pint4)
  63 IOPARM (inquire, strm_pos_out,  1 << 13, pintio)
  64 IOPARM (inquire, file,          1 << 14, char1)
  65 IOPARM (inquire, access,        1 << 15, char2)
  66 IOPARM (inquire, form,          1 << 16, char1)
  67 IOPARM (inquire, blank,         1 << 17, char2)
  68 IOPARM (inquire, position,      1 << 18, char1)
  69 IOPARM (inquire, action,        1 << 19, char2)
  70 IOPARM (inquire, delim,         1 << 20, char1)
  71 IOPARM (inquire, pad,           1 << 21, char2)
  72 IOPARM (inquire, name,          1 << 22, char1)
  73 IOPARM (inquire, sequential,    1 << 23, char2)
  74 IOPARM (inquire, direct,        1 << 24, char1)
  75 IOPARM (inquire, formatted,     1 << 25, char2)
  76 IOPARM (inquire, unformatted,   1 << 26, char1)
  77 IOPARM (inquire, read,          1 << 27, char2)
  78 IOPARM (inquire, write,         1 << 28, char1)
  79 IOPARM (inquire, readwrite,     1 << 29, char2)
  80 IOPARM (inquire, convert,       1 << 30, char1)
  81 IOPARM (inquire, flags2,        1 << 31, int4)
  82 IOPARM (inquire, asynchronous,  1 << 0,  char1)
  83 IOPARM (inquire, decimal,       1 << 1,  char2)
  84 IOPARM (inquire, encoding,      1 << 2,  char1)
  85 IOPARM (inquire, round,         1 << 3,  char2)
  86 IOPARM (inquire, sign,          1 << 4,  char1)
  87 IOPARM (inquire, pending,       1 << 5,  pint4)
  88 IOPARM (inquire, size,          1 << 6,  pint4)
  89 IOPARM (inquire, id,            1 << 7,  pint4)
  90 IOPARM (wait,    common,        0,       common)
  91 IOPARM (wait,    id,            1 << 7,  pint4)
  92 #ifndef IOPARM_dt_list_format
  93 #define IOPARM_dt_list_format           (1 << 7)
  94 #define IOPARM_dt_namelist_read_mode    (1 << 8)
  95 #endif
  96 IOPARM (dt,      common,        0,       common)
  97 IOPARM (dt,      rec,           1 << 9,  intio)
  98 IOPARM (dt,      size,          1 << 10, pintio)
  99 IOPARM (dt,      iolength,      1 << 11, pintio)
 100 IOPARM (dt,      internal_unit_desc, 0,  parray)
 101 IOPARM (dt,      format,        1 << 12, char1)
 102 IOPARM (dt,      advance,       1 << 13, char2)
 103 IOPARM (dt,      internal_unit, 1 << 14, char1)
 104 IOPARM (dt,      namelist_name, 1 << 15, char2)
 105 IOPARM (dt,      u,             0,       pad)
 106 IOPARM (dt,      id,            1 << 16, pint4)
 107 IOPARM (dt,      pos,           1 << 17, intio)
 108 IOPARM (dt,      asynchronous,  1 << 18, char1)
 109 IOPARM (dt,      blank,         1 << 19, char2)
 110 IOPARM (dt,      decimal,       1 << 20, char1)
 111 IOPARM (dt,      delim,         1 << 21, char2)
 112 IOPARM (dt,      pad,           1 << 22, char1)
 113 IOPARM (dt,      round,         1 << 23, char2)
 114 IOPARM (dt,      sign,          1 << 24, char1)