gcc/fortran/iso-fortran-env.def

   1 /* Copyright (C) 2006 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 2, 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 COPYING.  If not, write to the Free
  17 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  18 02110-1301, USA.  */
  19
  20 /* This file contains the definition of the named integer constants provided
  21    by the Fortran 2003 ISO_FORTRAN_ENV intrinsic module.  */
  22
  23 /* The arguments to NAMED_INTCST are:
  24      -- an internal name
  25      -- the symbol name in the module, as seen by Fortran code
  26      -- the value it has  */
  27
  28 NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \
  29               gfc_character_storage_size)
  30 NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", 0)
  31 NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8)
  32 NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", 5)
  33 NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", -1)
  34 NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", -2)
  35 NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \
  36               gfc_numeric_storage_size)
  37 NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", 6)