libgfortran/generated/misc_specifics.F90

   1 !   Copyright (C) 2002-2018 Free Software Foundation, Inc.
   2 !   Contributed by Paul Brook <paul@nowt.org>
   3 !
   4 !This file is part of the GNU Fortran 95 runtime library (libgfortran).
   5 !
   6 !GNU libgfortran is free software; you can redistribute it and/or
   7 !modify it under the terms of the GNU General Public
   8 !License as published by the Free Software Foundation; either
   9 !version 3 of the License, or (at your option) any later version.
  10
  11 !GNU libgfortran is distributed in the hope that it will be useful,
  12 !but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 !GNU General Public License for more details.
  15 !
  16 !Under Section 7 of GPL version 3, you are granted additional
  17 !permissions described in the GCC Runtime Library Exception, version
  18 !3.1, as published by the Free Software Foundation.
  19 !
  20 !You should have received a copy of the GNU General Public License and
  21 !a copy of the GCC Runtime Library Exception along with this program;
  22 !see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  23 !<http://www.gnu.org/licenses/>.
  24 !
  25 !This file is machine generated.
  26
  27 #include "config.h"
  28 #include "kinds.inc"
  29
  30
  31
  32
  33 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
  34 elemental function _gfortran_specific__nint_4_4 (parm)
  35    real (kind=4) , intent (in) :: parm
  36    integer (kind=4) :: _gfortran_specific__nint_4_4
  37    _gfortran_specific__nint_4_4 = nint (parm)
  38 end function
  39 #endif
  40
  41 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
  42 elemental function _gfortran_specific__nint_4_8 (parm)
  43    real (kind=8) , intent (in) :: parm
  44    integer (kind=4) :: _gfortran_specific__nint_4_8
  45    _gfortran_specific__nint_4_8 = nint (parm)
  46 end function
  47 #endif
  48
  49 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
  50 elemental function _gfortran_specific__nint_4_10 (parm)
  51    real (kind=10) , intent (in) :: parm
  52    integer (kind=4) :: _gfortran_specific__nint_4_10
  53    _gfortran_specific__nint_4_10 = nint (parm)
  54 end function
  55 #endif
  56
  57 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
  58 elemental function _gfortran_specific__nint_4_16 (parm)
  59    real (kind=16) , intent (in) :: parm
  60    integer (kind=4) :: _gfortran_specific__nint_4_16
  61    _gfortran_specific__nint_4_16 = nint (parm)
  62 end function
  63 #endif
  64
  65 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
  66 elemental function _gfortran_specific__nint_8_4 (parm)
  67    real (kind=4) , intent (in) :: parm
  68    integer (kind=8) :: _gfortran_specific__nint_8_4
  69    _gfortran_specific__nint_8_4 = nint (parm)
  70 end function
  71 #endif
  72
  73 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
  74 elemental function _gfortran_specific__nint_8_8 (parm)
  75    real (kind=8) , intent (in) :: parm
  76    integer (kind=8) :: _gfortran_specific__nint_8_8
  77    _gfortran_specific__nint_8_8 = nint (parm)
  78 end function
  79 #endif
  80
  81 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
  82 elemental function _gfortran_specific__nint_8_10 (parm)
  83    real (kind=10) , intent (in) :: parm
  84    integer (kind=8) :: _gfortran_specific__nint_8_10
  85    _gfortran_specific__nint_8_10 = nint (parm)
  86 end function
  87 #endif
  88
  89 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
  90 elemental function _gfortran_specific__nint_8_16 (parm)
  91    real (kind=16) , intent (in) :: parm
  92    integer (kind=8) :: _gfortran_specific__nint_8_16
  93    _gfortran_specific__nint_8_16 = nint (parm)
  94 end function
  95 #endif
  96
  97 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
  98 elemental function _gfortran_specific__nint_16_4 (parm)
  99    real (kind=4) , intent (in) :: parm
 100    integer (kind=16) :: _gfortran_specific__nint_16_4
 101    _gfortran_specific__nint_16_4 = nint (parm)
 102 end function
 103 #endif
 104
 105 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
 106 elemental function _gfortran_specific__nint_16_8 (parm)
 107    real (kind=8) , intent (in) :: parm
 108    integer (kind=16) :: _gfortran_specific__nint_16_8
 109    _gfortran_specific__nint_16_8 = nint (parm)
 110 end function
 111 #endif
 112
 113 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 114 elemental function _gfortran_specific__nint_16_10 (parm)
 115    real (kind=10) , intent (in) :: parm
 116    integer (kind=16) :: _gfortran_specific__nint_16_10
 117    _gfortran_specific__nint_16_10 = nint (parm)
 118 end function
 119 #endif
 120
 121 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 122 elemental function _gfortran_specific__nint_16_16 (parm)
 123    real (kind=16) , intent (in) :: parm
 124    integer (kind=16) :: _gfortran_specific__nint_16_16
 125    _gfortran_specific__nint_16_16 = nint (parm)
 126 end function
 127 #endif
 128
 129
 130
 131 #if defined (HAVE_GFC_INTEGER_4)
 132 elemental function _gfortran_specific__char_1_i4 (parm)
 133    integer (kind=4) , intent (in) :: parm
 134    character (kind=1,len=1) :: _gfortran_specific__char_1_i4
 135    _gfortran_specific__char_1_i4 = char (parm, kind=1)
 136 end function
 137 #endif
 138
 139 #if defined (HAVE_GFC_INTEGER_8)
 140 elemental function _gfortran_specific__char_1_i8 (parm)
 141    integer (kind=8) , intent (in) :: parm
 142    character (kind=1,len=1) :: _gfortran_specific__char_1_i8
 143    _gfortran_specific__char_1_i8 = char (parm, kind=1)
 144 end function
 145 #endif
 146
 147 #if defined (HAVE_GFC_INTEGER_16)
 148 elemental function _gfortran_specific__char_1_i16 (parm)
 149    integer (kind=16) , intent (in) :: parm
 150    character (kind=1,len=1) :: _gfortran_specific__char_1_i16
 151    _gfortran_specific__char_1_i16 = char (parm, kind=1)
 152 end function
 153 #endif
 154
 155
 156
 157 #if defined (HAVE_GFC_INTEGER_4)
 158 elemental function _gfortran_specific__len_1_i4 (parm)
 159    character (kind=1,len=*) , intent (in) :: parm
 160    integer (kind=4) :: _gfortran_specific__len_1_i4
 161    _gfortran_specific__len_1_i4 = len (parm)
 162 end function
 163 #endif
 164
 165 #if defined (HAVE_GFC_INTEGER_8)
 166 elemental function _gfortran_specific__len_1_i8 (parm)
 167    character (kind=1,len=*) , intent (in) :: parm
 168    integer (kind=8) :: _gfortran_specific__len_1_i8
 169    _gfortran_specific__len_1_i8 = len (parm)
 170 end function
 171 #endif
 172
 173 #if defined (HAVE_GFC_INTEGER_16)
 174 elemental function _gfortran_specific__len_1_i16 (parm)
 175    character (kind=1,len=*) , intent (in) :: parm
 176    integer (kind=16) :: _gfortran_specific__len_1_i16
 177    _gfortran_specific__len_1_i16 = len (parm)
 178 end function
 179 #endif
 180
 181
 182
 183 #if defined (HAVE_GFC_INTEGER_4)
 184 elemental function _gfortran_specific__index_1_i4 (parm1, parm2)
 185    character (kind=1,len=*) , intent (in) :: parm1, parm2
 186    integer (kind=4) :: _gfortran_specific__index_1_i4
 187    _gfortran_specific__index_1_i4 = index (parm1, parm2)
 188 end function
 189 #endif
 190
 191 #if defined (HAVE_GFC_INTEGER_8)
 192 elemental function _gfortran_specific__index_1_i8 (parm1, parm2)
 193    character (kind=1,len=*) , intent (in) :: parm1, parm2
 194    integer (kind=8) :: _gfortran_specific__index_1_i8
 195    _gfortran_specific__index_1_i8 = index (parm1, parm2)
 196 end function
 197 #endif
 198
 199 #if defined (HAVE_GFC_INTEGER_16)
 200 elemental function _gfortran_specific__index_1_i16 (parm1, parm2)
 201    character (kind=1,len=*) , intent (in) :: parm1, parm2
 202    integer (kind=16) :: _gfortran_specific__index_1_i16
 203    _gfortran_specific__index_1_i16 = index (parm1, parm2)
 204 end function
 205 #endif
 206