LCOV - code coverage report
Current view: top level - gcc/fortran - iso-fortran-env.def (source / functions) Coverage Total Hit
Test: gcc.info Lines: 100.0 % 44 44
Test Date: 2025-04-26 15:52:03 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-2025 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.  The ordering of
      21                 :             :    the entries matters for the *.mod backwards compatibility.  */
      22                 :             : 
      23                 :             : #ifndef NAMED_INTCST
      24                 :             : # define NAMED_INTCST(a,b,c,d)
      25                 :             : #endif
      26                 :             : 
      27                 :             : #ifndef NAMED_UINTCST
      28                 :             : # define NAMED_UINTCST(a,b,c,d)
      29                 :             : #endif
      30                 :             : 
      31                 :             : #ifndef NAMED_KINDARRAY
      32                 :             : # define NAMED_KINDARRAY(a,b,c,d)
      33                 :             : #endif
      34                 :             : 
      35                 :             : #ifndef NAMED_SUBROUTINE
      36                 :             : # define NAMED_SUBROUTINE(a,b,c,d)
      37                 :             : #endif
      38                 :             : 
      39                 :             : #ifndef NAMED_FUNCTION
      40                 :             : # define NAMED_FUNCTION(a,b,c,d)
      41                 :             : #endif
      42                 :             : 
      43                 :             : /* The arguments to NAMED_INTCST are:
      44                 :             :      -- an internal name
      45                 :             :      -- the symbol name in the module, as seen by Fortran code
      46                 :             :      -- the value it has
      47                 :             :      -- the standard that supports this type  */
      48                 :             : 
      49                 :        9796 : NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_INT_KIND, "atomic_int_kind", \
      50                 :             :               gfc_atomic_int_kind, GFC_STD_F2008)
      51                 :        9796 : NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_LOGICAL_KIND, "atomic_logical_kind", \
      52                 :             :               gfc_atomic_logical_kind, GFC_STD_F2008)
      53                 :        9796 : NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \
      54                 :             :               gfc_character_storage_size, GFC_STD_F2003)
      55                 :        9796 : NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", GFC_STDERR_UNIT_NUMBER, \
      56                 :             :               GFC_STD_F2003)
      57                 :        9796 : NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8, \
      58                 :             :               GFC_STD_F2003)
      59                 :        9796 : NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", GFC_STDIN_UNIT_NUMBER, \
      60                 :             :               GFC_STD_F2003)
      61                 :         561 : NAMED_INTCST (ISOFORTRANENV_INT8, "int8", \
      62                 :             :               gfc_get_int_kind_from_width_isofortranenv (8), GFC_STD_F2008)
      63                 :         561 : NAMED_INTCST (ISOFORTRANENV_INT16, "int16", \
      64                 :             :               gfc_get_int_kind_from_width_isofortranenv (16), GFC_STD_F2008)
      65                 :         561 : NAMED_INTCST (ISOFORTRANENV_INT32, "int32", \
      66                 :             :               gfc_get_int_kind_from_width_isofortranenv (32), GFC_STD_F2008)
      67                 :         561 : NAMED_INTCST (ISOFORTRANENV_INT64, "int64", \
      68                 :             :               gfc_get_int_kind_from_width_isofortranenv (64), GFC_STD_F2008)
      69                 :        9796 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", LIBERROR_END, \
      70                 :             :               GFC_STD_F2003)
      71                 :        9796 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", LIBERROR_EOR, \
      72                 :             :               GFC_STD_F2003)
      73                 :        9796 : NAMED_INTCST (ISOFORTRANENV_IOSTAT_INQUIRE_INTERNAL_UNIT, \
      74                 :             :               "iostat_inquire_internal_unit", LIBERROR_INQUIRE_INTERNAL_UNIT, \
      75                 :             :               GFC_STD_F2008)
      76                 :        9796 : NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \
      77                 :             :               gfc_numeric_storage_size, GFC_STD_F2003)
      78                 :        9796 : NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER, \
      79                 :             :               GFC_STD_F2003)
      80                 :         561 : NAMED_INTCST (ISOFORTRANENV_REAL32, "real32", \
      81                 :             :               gfc_get_real_kind_from_width_isofortranenv (32), GFC_STD_F2008)
      82                 :         561 : NAMED_INTCST (ISOFORTRANENV_REAL64, "real64", \
      83                 :             :               gfc_get_real_kind_from_width_isofortranenv (64), GFC_STD_F2008)
      84                 :         561 : NAMED_INTCST (ISOFORTRANENV_REAL128, "real128", \
      85                 :             :               gfc_get_real_kind_from_width_isofortranenv (128), GFC_STD_F2008)
      86                 :        9796 : NAMED_INTCST (ISOFORTRANENV_STAT_LOCKED, "stat_locked", \
      87                 :             :               GFC_STAT_LOCKED, GFC_STD_F2008)
      88                 :        9796 : NAMED_INTCST (ISOFORTRANENV_STAT_LOCKED_OTHER_IMAGE, \
      89                 :             :               "stat_locked_other_image", \
      90                 :             :               GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008)
      91                 :        9796 : NAMED_INTCST (ISOFORTRANENV_STAT_STOPPED_IMAGE, "stat_stopped_image", \
      92                 :             :               GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008)
      93                 :        9796 : NAMED_INTCST (ISOFORTRANENV_STAT_FAILED_IMAGE, "stat_failed_image", \
      94                 :             :               GFC_STAT_FAILED_IMAGE, GFC_STD_F2018)
      95                 :        9796 : NAMED_INTCST (ISOFORTRANENV_STAT_UNLOCKED, "stat_unlocked", \
      96                 :             :               GFC_STAT_UNLOCKED, GFC_STD_F2008)
      97                 :        9796 : NAMED_INTCST (ISOFORTRANENV_INITIAL_TEAM, "initial_team", \
      98                 :             :               GFC_CAF_INITIAL_TEAM, GFC_STD_F2018)
      99                 :        9796 : NAMED_INTCST (ISOFORTRANENV_PARENT_TEAM, "parent_team", \
     100                 :             :               GFC_CAF_PARENT_TEAM, GFC_STD_F2018)
     101                 :        9796 : NAMED_INTCST (ISOFORTRANENV_CURRENT_TEAM, "current_team", \
     102                 :             :               GFC_CAF_CURRENT_TEAM, GFC_STD_F2018)
     103                 :             : 
     104                 :             : 
     105                 :             : /* The arguments to NAMED_KINDARRAY are:
     106                 :             :      -- an internal name
     107                 :             :      -- the symbol name in the module, as seen by Fortran code
     108                 :             :      -- the gfortran variable containing the information
     109                 :             :      -- the Fortran standard  */
     110                 :             : 
     111                 :         885 : NAMED_KINDARRAY (ISOFORTRAN_CHARACTER_KINDS, "character_kinds", \
     112                 :             :                  gfc_character_kinds, GFC_STD_F2008)
     113                 :        1782 : NAMED_KINDARRAY (ISOFORTRAN_INTEGER_KINDS, "integer_kinds", \
     114                 :             :                  gfc_integer_kinds, GFC_STD_F2008)
     115                 :        1728 : NAMED_KINDARRAY (ISOFORTRAN_LOGICAL_KINDS, "logical_kinds", \
     116                 :             :                  gfc_logical_kinds, GFC_STD_F2008)
     117                 :        1540 : NAMED_KINDARRAY (ISOFORTRAN_REAL_KINDS, "real_kinds", \
     118                 :             :                  gfc_real_kinds, GFC_STD_F2008)
     119                 :             : 
     120                 :             : /* The arguments to NAMED_FUNCTIONS are:
     121                 :             :      -- the ISYM
     122                 :             :      -- the symbol name in the module, as seen by Fortran code
     123                 :             :      -- the Fortran standard  */
     124                 :             : 
     125                 :        1151 : NAMED_FUNCTION (ISOFORTRAN_COMPILER_OPTIONS, "compiler_options", \
     126                 :             :                 GFC_ISYM_COMPILER_OPTIONS, GFC_STD_F2008)
     127                 :        1192 : NAMED_FUNCTION (ISOFORTRAN_COMPILER_VERSION, "compiler_version", \
     128                 :             :                 GFC_ISYM_COMPILER_VERSION, GFC_STD_F2008)
     129                 :             : 
     130                 :             : #ifndef NAMED_DERIVED_TYPE
     131                 :             : # define NAMED_DERIVED_TYPE(a,b,c,d)
     132                 :             : #endif
     133                 :             : 
     134                 :        1498 : NAMED_DERIVED_TYPE (ISOFORTRAN_LOCK_TYPE, "lock_type", \
     135                 :             :               get_int_kind_from_node (ptr_type_node), GFC_STD_F2008)
     136                 :             : 
     137                 :        1498 : NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type", \
     138                 :             :                     flag_coarray == GFC_FCOARRAY_LIB
     139                 :             :                     ?  get_int_kind_from_node (ptr_type_node)
     140                 :             :                     : gfc_default_integer_kind, GFC_STD_F2018)
     141                 :             : 
     142                 :         937 : NAMED_DERIVED_TYPE (ISOFORTRAN_TEAM_TYPE, "team_type", \
     143                 :             :                     get_int_kind_from_node (ptr_type_node), GFC_STD_F2018)
     144                 :             : 
     145                 :         561 : NAMED_INTCST (ISOFORTRANENV_LOGICAL8, "logical8", \
     146                 :             :               gfc_get_int_kind_from_width_isofortranenv (8), GFC_STD_F2023)
     147                 :         561 : NAMED_INTCST (ISOFORTRANENV_LOGICAL16, "logical16", \
     148                 :             :               gfc_get_int_kind_from_width_isofortranenv (16), GFC_STD_F2023)
     149                 :         561 : NAMED_INTCST (ISOFORTRANENV_LOGICAL32, "logical32", \
     150                 :             :               gfc_get_int_kind_from_width_isofortranenv (32), GFC_STD_F2023)
     151                 :         561 : NAMED_INTCST (ISOFORTRANENV_LOGICAL64, "logical64", \
     152                 :             :               gfc_get_int_kind_from_width_isofortranenv (64), GFC_STD_F2023)
     153                 :        9796 : NAMED_INTCST (ISOFORTRANENV_REAL16, "real16", \
     154                 :             :               gfc_get_real_kind_from_width_isofortranenv (16), GFC_STD_F2023)
     155                 :             : 
     156                 :         561 : NAMED_UINTCST (ISOFORTRANENV_UINT8, "uint8", \
     157                 :             :                gfc_get_uint_kind_from_width_isofortranenv (8), GFC_STD_UNSIGNED)
     158                 :         561 : NAMED_UINTCST (ISOFORTRANENV_UINT16, "uint16", \
     159                 :             :                gfc_get_uint_kind_from_width_isofortranenv (16), GFC_STD_UNSIGNED)
     160                 :         561 : NAMED_UINTCST (ISOFORTRANENV_UINT32, "uint32", \
     161                 :             :                gfc_get_uint_kind_from_width_isofortranenv (32), GFC_STD_UNSIGNED)
     162                 :         595 : NAMED_UINTCST (ISOFORTRANENV_UINT64, "uint64", \
     163                 :             :                gfc_get_uint_kind_from_width_isofortranenv (64), GFC_STD_UNSIGNED)
     164                 :             : 
     165                 :             : #undef NAMED_INTCST
     166                 :             : #undef NAMED_UINTCST
     167                 :             : #undef NAMED_KINDARRAY
     168                 :             : #undef NAMED_FUNCTION
     169                 :             : #undef NAMED_SUBROUTINE
     170                 :             : #undef NAMED_DERIVED_TYPE
        

Generated by: LCOV version 2.1-beta

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,rust,m2 --enable-host-shared. GCC test suite is run with the built compiler.