Home | History | Annotate | Line # | Download | only in fortran
ioparm.def revision 1.1.1.3
      1  1.1.1.3  mrg /* Copyright (C) 2005-2022 Free Software Foundation, Inc.
      2      1.1  mrg 
      3      1.1  mrg This file is part of GCC.
      4      1.1  mrg 
      5      1.1  mrg GCC is free software; you can redistribute it and/or modify it under
      6      1.1  mrg the terms of the GNU General Public License as published by the Free
      7      1.1  mrg Software Foundation; either version 3, or (at your option) any later
      8      1.1  mrg version.
      9      1.1  mrg 
     10      1.1  mrg GCC is distributed in the hope that it will be useful, but WITHOUT ANY
     11      1.1  mrg WARRANTY; without even the implied warranty of MERCHANTABILITY or
     12      1.1  mrg FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
     13      1.1  mrg for more details.
     14      1.1  mrg 
     15      1.1  mrg You should have received a copy of the GNU General Public License
     16      1.1  mrg along with GCC; see the file COPYING3.  If not see
     17      1.1  mrg <http://www.gnu.org/licenses/>.  */
     18      1.1  mrg 
     19      1.1  mrg /* Make sure to keep in sync with libgfortran/io/io.h (st_parameter_*).  */
     20      1.1  mrg #ifndef IOPARM_common_libreturn_mask
     21      1.1  mrg #define IOPARM_common_libreturn_mask	3
     22      1.1  mrg #define IOPARM_common_libreturn_ok	0
     23      1.1  mrg #define IOPARM_common_libreturn_error	1
     24      1.1  mrg #define IOPARM_common_libreturn_end	2
     25      1.1  mrg #define IOPARM_common_libreturn_eor	3
     26      1.1  mrg #define IOPARM_common_err		(1 << 2)
     27      1.1  mrg #define IOPARM_common_end		(1 << 3)
     28      1.1  mrg #define IOPARM_common_eor		(1 << 4)
     29      1.1  mrg #endif
     30      1.1  mrg IOPARM (common,  flags,		0,	 int4)
     31      1.1  mrg IOPARM (common,  unit,		0,	 int4)
     32      1.1  mrg IOPARM (common,  filename,	0,	 pchar)
     33      1.1  mrg IOPARM (common,  line,		0,	 int4)
     34      1.1  mrg IOPARM (common,  iomsg,		1 << 6,  char2)
     35      1.1  mrg IOPARM (common,  iostat,	1 << 5,  pint4)
     36      1.1  mrg IOPARM (open,    common,	0,	 common)
     37      1.1  mrg IOPARM (open,    recl_in,	1 << 7,  intio)
     38      1.1  mrg IOPARM (open,    file,		1 << 8,  char2)
     39      1.1  mrg IOPARM (open,    status,	1 << 9,  char1)
     40      1.1  mrg IOPARM (open,    access,	1 << 10, char2)
     41      1.1  mrg IOPARM (open,    form,		1 << 11, char1)
     42      1.1  mrg IOPARM (open,    blank,		1 << 12, char2)
     43      1.1  mrg IOPARM (open,    position,	1 << 13, char1)
     44      1.1  mrg IOPARM (open,    action,	1 << 14, char2)
     45      1.1  mrg IOPARM (open,    delim,		1 << 15, char1)
     46      1.1  mrg IOPARM (open,    pad,		1 << 16, char2)
     47      1.1  mrg IOPARM (open,    convert,	1 << 17, char1)
     48      1.1  mrg IOPARM (open,    decimal,	1 << 18, char2)
     49      1.1  mrg IOPARM (open,    encoding,	1 << 19, char1)
     50      1.1  mrg IOPARM (open,    round,		1 << 20, char2)
     51      1.1  mrg IOPARM (open,    sign,		1 << 21, char1)
     52      1.1  mrg IOPARM (open,    asynchronous,	1 << 22, char2)
     53      1.1  mrg IOPARM (open,    newunit,	1 << 23, pint4)
     54      1.1  mrg IOPARM (open,    readonly,	1 << 24, int4)
     55      1.1  mrg IOPARM (open,    cc,		1 << 25, char2)
     56      1.1  mrg IOPARM (open,    share,		1 << 26, char1)
     57      1.1  mrg IOPARM (close,   common,	0,	 common)
     58      1.1  mrg IOPARM (close,   status,	1 << 7,  char1)
     59      1.1  mrg IOPARM (filepos, common,	0,	 common)
     60      1.1  mrg IOPARM (inquire, common,	0,	 common)
     61      1.1  mrg IOPARM (inquire, exist,		1 << 7,  pint4)
     62      1.1  mrg IOPARM (inquire, opened,	1 << 8,  pint4)
     63      1.1  mrg IOPARM (inquire, number,	1 << 9,  pint4)
     64      1.1  mrg IOPARM (inquire, named,		1 << 10, pint4)
     65      1.1  mrg IOPARM (inquire, nextrec,	1 << 11, pintio)
     66      1.1  mrg IOPARM (inquire, recl_out,	1 << 12, pintio)
     67      1.1  mrg IOPARM (inquire, strm_pos_out,	1 << 13, pintio)
     68      1.1  mrg IOPARM (inquire, file,		1 << 14, char1)
     69      1.1  mrg IOPARM (inquire, access,	1 << 15, char2)
     70      1.1  mrg IOPARM (inquire, form,		1 << 16, char1)
     71      1.1  mrg IOPARM (inquire, blank,		1 << 17, char2)
     72      1.1  mrg IOPARM (inquire, position,	1 << 18, char1)
     73      1.1  mrg IOPARM (inquire, action,	1 << 19, char2)
     74      1.1  mrg IOPARM (inquire, delim,		1 << 20, char1)
     75      1.1  mrg IOPARM (inquire, pad,		1 << 21, char2)
     76      1.1  mrg IOPARM (inquire, name,		1 << 22, char1)
     77      1.1  mrg IOPARM (inquire, sequential,	1 << 23, char2)
     78      1.1  mrg IOPARM (inquire, direct,	1 << 24, char1)
     79      1.1  mrg IOPARM (inquire, formatted,	1 << 25, char2)
     80      1.1  mrg IOPARM (inquire, unformatted,	1 << 26, char1)
     81      1.1  mrg IOPARM (inquire, read,		1 << 27, char2)
     82      1.1  mrg IOPARM (inquire, write,		1 << 28, char1)
     83      1.1  mrg IOPARM (inquire, readwrite,	1 << 29, char2)
     84      1.1  mrg IOPARM (inquire, convert,	1 << 30, char1)
     85      1.1  mrg IOPARM (inquire, flags2,	1U << 31, int4)
     86      1.1  mrg IOPARM (inquire, asynchronous,	1 << 0,  char1)
     87      1.1  mrg IOPARM (inquire, decimal,	1 << 1,  char2)
     88      1.1  mrg IOPARM (inquire, encoding,	1 << 2,  char1)
     89      1.1  mrg IOPARM (inquire, round,		1 << 3,  char2)
     90      1.1  mrg IOPARM (inquire, sign,		1 << 4,  char1)
     91      1.1  mrg IOPARM (inquire, pending,	1 << 5,  pint4)
     92      1.1  mrg IOPARM (inquire, size,		1 << 6,  pintio)
     93      1.1  mrg IOPARM (inquire, id,		1 << 7,  pint4)
     94      1.1  mrg IOPARM (inquire, iqstream,	1 << 8,  char1)
     95      1.1  mrg IOPARM (inquire, share,		1 << 9,  char2)
     96      1.1  mrg IOPARM (inquire, cc,		1 << 10, char1)
     97      1.1  mrg IOPARM (wait,    common,	0,	 common)
     98      1.1  mrg IOPARM (wait,    id,		1 << 7,  pint4)
     99      1.1  mrg IOPARM (dt,      common,	0,	 common)
    100      1.1  mrg #define IOPARM_dt_list_format		(1 << 7)
    101      1.1  mrg #define IOPARM_dt_namelist_read_mode	(1 << 8)
    102      1.1  mrg IOPARM (dt,      rec,		1 << 9,  intio)
    103      1.1  mrg IOPARM (dt,      size,		1 << 10, pintio)
    104      1.1  mrg IOPARM (dt,      iolength,	1 << 11, pintio)
    105      1.1  mrg IOPARM (dt,      internal_unit_desc, 0,  parray)
    106      1.1  mrg IOPARM (dt,      format,	1 << 12, char1)
    107      1.1  mrg IOPARM (dt,      advance,	1 << 13, char2)
    108      1.1  mrg IOPARM (dt,      internal_unit,	1 << 14, char1)
    109      1.1  mrg IOPARM (dt,      namelist_name,	1 << 15, char2)
    110      1.1  mrg IOPARM (dt,      id,		1 << 16, pint4)
    111      1.1  mrg IOPARM (dt,      pos,		1 << 17, intio)
    112      1.1  mrg IOPARM (dt,      asynchronous, 	1 << 18, char1)
    113      1.1  mrg IOPARM (dt,      blank,		1 << 19, char2)
    114      1.1  mrg IOPARM (dt,      decimal,	1 << 20, char1)
    115      1.1  mrg IOPARM (dt,      delim,		1 << 21, char2)
    116      1.1  mrg IOPARM (dt,      pad,		1 << 22, char1)
    117      1.1  mrg IOPARM (dt,      round,		1 << 23, char2)
    118      1.1  mrg IOPARM (dt,      sign,		1 << 24, char1)
    119      1.1  mrg #define IOPARM_dt_f2003		      (1 << 25)
    120      1.1  mrg #define IOPARM_dt_dtio		      (1 << 26)
    121      1.1  mrg #define IOPARM_dt_dec_ext	      (1 << 27)
    122      1.1  mrg IOPARM (dt,      u,		0,	 pad)
    123