LCOV - code coverage report
Current view: top level - gcc/fortran - iso-fortran-env.def (source / functions) Hit Total Coverage
Test: gcc.info Lines: 32 32 100.0 %
Date: 2020-03-28 11:57:23 Functions: 0 0 -
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Copyright (C) 2006-2020 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                 :            : /* This file contains the definition of the named integer constants provided
      20                 :            :    by the Fortran 2003 ISO_FORTRAN_ENV intrinsic module.  */
      21                 :            : 
      22                 :            : #ifndef NAMED_INTCST
      23                 :            : # define NAMED_INTCST(a,b,c,d)
      24                 :            : #endif
      25                 :            : 
      26                 :            : #ifndef NAMED_KINDARRAY
      27                 :            : # define NAMED_KINDARRAY(a,b,c,d)
      28                 :            : #endif
      29                 :            : 
      30                 :            : #ifndef NAMED_SUBROUTINE
      31                 :            : # define NAMED_SUBROUTINE(a,b,c,d)
      32                 :            : #endif
      33                 :            : 
      34                 :            : #ifndef NAMED_FUNCTION
      35                 :            : # define NAMED_FUNCTION(a,b,c,d)
      36                 :            : #endif
      37                 :            : 
      38                 :            : /* The arguments to NAMED_INTCST are:
      39                 :            :      -- an internal name
      40                 :            :      -- the symbol name in the module, as seen by Fortran code
      41                 :            :      -- the value it has
      42                 :            :      -- the standard that supports this type  */ 
      43                 :            : 
      44                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_INT_KIND, "atomic_int_kind", \
      45                 :            :               gfc_atomic_int_kind, GFC_STD_F2008)
      46                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_LOGICAL_KIND, "atomic_logical_kind", \
      47                 :            :               gfc_atomic_logical_kind, GFC_STD_F2008)
      48                 :       5590 : NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \
      49                 :            :               gfc_character_storage_size, GFC_STD_F2003)
      50                 :       5590 : NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", GFC_STDERR_UNIT_NUMBER, \
      51                 :            :               GFC_STD_F2003)
      52                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8, \
      53                 :            :               GFC_STD_F2003)
      54                 :       5590 : NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", GFC_STDIN_UNIT_NUMBER, \
      55                 :            :               GFC_STD_F2003)
      56                 :        378 : NAMED_INTCST (ISOFORTRANENV_INT8, "int8", \
      57                 :            :               gfc_get_int_kind_from_width_isofortranenv (8), GFC_STD_F2008)
      58                 :        378 : NAMED_INTCST (ISOFORTRANENV_INT16, "int16", \
      59                 :            :               gfc_get_int_kind_from_width_isofortranenv (16), GFC_STD_F2008)
      60                 :        378 : NAMED_INTCST (ISOFORTRANENV_INT32, "int32", \
      61                 :            :               gfc_get_int_kind_from_width_isofortranenv (32), GFC_STD_F2008)
      62                 :        378 : NAMED_INTCST (ISOFORTRANENV_INT64, "int64", \
      63                 :            :               gfc_get_int_kind_from_width_isofortranenv (64), GFC_STD_F2008)
      64                 :       5590 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", LIBERROR_END, \
      65                 :            :               GFC_STD_F2003)
      66                 :       5590 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", LIBERROR_EOR, \
      67                 :            :               GFC_STD_F2003)
      68                 :       5590 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_INQUIRE_INTERNAL_UNIT, \
      69                 :            :               "iostat_inquire_internal_unit", LIBERROR_INQUIRE_INTERNAL_UNIT, \
      70                 :            :               GFC_STD_F2008)
      71                 :       5590 : NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \
      72                 :            :               gfc_numeric_storage_size, GFC_STD_F2003)
      73                 :       5590 : NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER, \
      74                 :            :               GFC_STD_F2003)
      75                 :        378 : NAMED_INTCST (ISOFORTRANENV_REAL32, "real32", \
      76                 :            :               gfc_get_real_kind_from_width_isofortranenv (32), GFC_STD_F2008)
      77                 :        378 : NAMED_INTCST (ISOFORTRANENV_REAL64, "real64", \
      78                 :            :               gfc_get_real_kind_from_width_isofortranenv (64), GFC_STD_F2008)
      79                 :        378 : NAMED_INTCST (ISOFORTRANENV_REAL128, "real128", \
      80                 :            :               gfc_get_real_kind_from_width_isofortranenv (128), GFC_STD_F2008)
      81                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED, "stat_locked", \
      82                 :            :               GFC_STAT_LOCKED, GFC_STD_F2008)
      83                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED_OTHER_IMAGE, \
      84                 :            :               "stat_locked_other_image", \
      85                 :            :               GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008)
      86                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STAT_STOPPED_IMAGE, "stat_stopped_image", \
      87                 :            :               GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008)
      88                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image", \
      89                 :            :               GFC_STAT_FAILED_IMAGE, GFC_STD_F2018)
      90                 :       5590 : NAMED_INTCST (ISOFORTRANENV_FILE_STAT_UNLOCKED, "stat_unlocked", \
      91                 :            :               GFC_STAT_UNLOCKED, GFC_STD_F2008)
      92                 :            : 
      93                 :            : 
      94                 :            : /* The arguments to NAMED_KINDARRAY are:
      95                 :            :      -- an internal name
      96                 :            :      -- the symbol name in the module, as seen by Fortran code
      97                 :            :      -- the gfortran variable containing the information
      98                 :            :      -- the Fortran standard  */
      99                 :            : 
     100                 :        675 : NAMED_KINDARRAY (ISOFORTRAN_CHARACTER_KINDS, "character_kinds", \
     101                 :            :                  gfc_character_kinds, GFC_STD_F2008)
     102                 :       1362 : NAMED_KINDARRAY (ISOFORTRAN_INTEGER_KINDS, "integer_kinds", \
     103                 :            :                  gfc_integer_kinds, GFC_STD_F2008)
     104                 :       1308 : NAMED_KINDARRAY (ISOFORTRAN_LOGICAL_KINDS, "logical_kinds", \
     105                 :            :                  gfc_logical_kinds, GFC_STD_F2008)
     106                 :       1190 : NAMED_KINDARRAY (ISOFORTRAN_REAL_KINDS, "real_kinds", \
     107                 :            :                  gfc_real_kinds, GFC_STD_F2008)
     108                 :            : 
     109                 :            : /* The arguments to NAMED_FUNCTIONS are:
     110                 :            :      -- the ISYM
     111                 :            :      -- the symbol name in the module, as seen by Fortran code
     112                 :            :      -- the Fortran standard  */
     113                 :            : 
     114                 :        450 : NAMED_FUNCTION (ISOFORTRAN_COMPILER_OPTIONS, "compiler_options", \
     115                 :            :                 GFC_ISYM_COMPILER_OPTIONS, GFC_STD_F2008)
     116                 :        912 : NAMED_FUNCTION (ISOFORTRAN_COMPILER_VERSION, "compiler_version", \
     117                 :            :                 GFC_ISYM_COMPILER_VERSION, GFC_STD_F2008)
     118                 :            : 
     119                 :            : #ifndef NAMED_DERIVED_TYPE
     120                 :            : # define NAMED_DERIVED_TYPE(a,b,c,d)
     121                 :            : #endif
     122                 :            : 
     123                 :        684 : NAMED_DERIVED_TYPE (ISOFORTRAN_LOCK_TYPE, "lock_type", \
     124                 :            :               get_int_kind_from_node (ptr_type_node), GFC_STD_F2008)
     125                 :            : 
     126                 :        684 : NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type", \
     127                 :            :                     flag_coarray == GFC_FCOARRAY_LIB
     128                 :            :                     ?  get_int_kind_from_node (ptr_type_node)
     129                 :            :                     : gfc_default_integer_kind, GFC_STD_F2018)
     130                 :            : 
     131                 :        684 : NAMED_DERIVED_TYPE (ISOFORTRAN_TEAM_TYPE, "team_type", \
     132                 :            :                     flag_coarray == GFC_FCOARRAY_LIB
     133                 :            :                     ? get_int_kind_from_node (ptr_type_node)
     134                 :            :                     : gfc_default_integer_kind, GFC_STD_F2018)
     135                 :            : 
     136                 :            : #undef NAMED_INTCST
     137                 :            : #undef NAMED_KINDARRAY
     138                 :            : #undef NAMED_FUNCTION
     139                 :            : #undef NAMED_SUBROUTINE
     140                 :            : #undef NAMED_DERIVED_TYPE

Generated by: LCOV version 1.0

LCOV profile is generated on x86_64 machine using following configure options: configure --disable-bootstrap --enable-coverage=opt --enable-languages=c,c++,fortran,go,jit,lto --enable-host-shared. GCC test suite is run with the built compiler.