libgfortran/generated/misc_specifics.F90

   1 !   Copyright 2002, 2007 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 2 of the License, or (at your option) any later version.
  10
  11 !In addition to the permissions in the GNU General Public License, the
  12 !Free Software Foundation gives you unlimited permission to link the
  13 !compiled version of this file into combinations with other programs,
  14 !and to distribute those combinations without any restriction coming
  15 !from the use of this file.  (The General Public License restrictions
  16 !do apply in other respects; for example, they cover modification of
  17 !the file, and distribution when not linked into a combine
  18 !executable.)
  19 !
  20 !GNU libgfortran is distributed in the hope that it will be useful,
  21 !but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 !GNU General Public License for more details.
  24 !
  25 !You should have received a copy of the GNU General Public
  26 !License along with libgfortran; see the file COPYING.  If not,
  27 !write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  28 !Boston, MA 02110-1301, USA.
  29 !
  30 !This file is machine generated.
  31
  32 #include "config.h"
  33 #include "kinds.inc"
  34
  35
  36
  37
  38 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
  39 elemental function _gfortran_specific__nint_4_4 (parm)
  40    real (kind=4) , intent (in) :: parm
  41    integer (kind=4) :: _gfortran_specific__nint_4_4
  42    _gfortran_specific__nint_4_4 = nint (parm)
  43 end function
  44 #endif
  45
  46 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
  47 elemental function _gfortran_specific__nint_4_8 (parm)
  48    real (kind=8) , intent (in) :: parm
  49    integer (kind=4) :: _gfortran_specific__nint_4_8
  50    _gfortran_specific__nint_4_8 = nint (parm)
  51 end function
  52 #endif
  53
  54 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
  55 elemental function _gfortran_specific__nint_4_10 (parm)
  56    real (kind=10) , intent (in) :: parm
  57    integer (kind=4) :: _gfortran_specific__nint_4_10
  58    _gfortran_specific__nint_4_10 = nint (parm)
  59 end function
  60 #endif
  61
  62 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
  63 elemental function _gfortran_specific__nint_4_16 (parm)
  64    real (kind=16) , intent (in) :: parm
  65    integer (kind=4) :: _gfortran_specific__nint_4_16
  66    _gfortran_specific__nint_4_16 = nint (parm)
  67 end function
  68 #endif
  69
  70 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
  71 elemental function _gfortran_specific__nint_8_4 (parm)
  72    real (kind=4) , intent (in) :: parm
  73    integer (kind=8) :: _gfortran_specific__nint_8_4
  74    _gfortran_specific__nint_8_4 = nint (parm)
  75 end function
  76 #endif
  77
  78 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
  79 elemental function _gfortran_specific__nint_8_8 (parm)
  80    real (kind=8) , intent (in) :: parm
  81    integer (kind=8) :: _gfortran_specific__nint_8_8
  82    _gfortran_specific__nint_8_8 = nint (parm)
  83 end function
  84 #endif
  85
  86 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
  87 elemental function _gfortran_specific__nint_8_10 (parm)
  88    real (kind=10) , intent (in) :: parm
  89    integer (kind=8) :: _gfortran_specific__nint_8_10
  90    _gfortran_specific__nint_8_10 = nint (parm)
  91 end function
  92 #endif
  93
  94 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
  95 elemental function _gfortran_specific__nint_8_16 (parm)
  96    real (kind=16) , intent (in) :: parm
  97    integer (kind=8) :: _gfortran_specific__nint_8_16
  98    _gfortran_specific__nint_8_16 = nint (parm)
  99 end function
 100 #endif
 101
 102 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
 103 elemental function _gfortran_specific__nint_16_4 (parm)
 104    real (kind=4) , intent (in) :: parm
 105    integer (kind=16) :: _gfortran_specific__nint_16_4
 106    _gfortran_specific__nint_16_4 = nint (parm)
 107 end function
 108 #endif
 109
 110 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
 111 elemental function _gfortran_specific__nint_16_8 (parm)
 112    real (kind=8) , intent (in) :: parm
 113    integer (kind=16) :: _gfortran_specific__nint_16_8
 114    _gfortran_specific__nint_16_8 = nint (parm)
 115 end function
 116 #endif
 117
 118 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 119 elemental function _gfortran_specific__nint_16_10 (parm)
 120    real (kind=10) , intent (in) :: parm
 121    integer (kind=16) :: _gfortran_specific__nint_16_10
 122    _gfortran_specific__nint_16_10 = nint (parm)
 123 end function
 124 #endif
 125
 126 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 127 elemental function _gfortran_specific__nint_16_16 (parm)
 128    real (kind=16) , intent (in) :: parm
 129    integer (kind=16) :: _gfortran_specific__nint_16_16
 130    _gfortran_specific__nint_16_16 = nint (parm)
 131 end function
 132 #endif
 133
 134
 135
 136 #if defined (HAVE_GFC_INTEGER_4)
 137 elemental function _gfortran_specific__char_1_i4 (parm)
 138    integer (kind=4) , intent (in) :: parm
 139    character (kind=1,len=1) :: _gfortran_specific__char_1_i4
 140    _gfortran_specific__char_1_i4 = char (parm, kind=1)
 141 end function
 142 #endif
 143
 144 #if defined (HAVE_GFC_INTEGER_8)
 145 elemental function _gfortran_specific__char_1_i8 (parm)
 146    integer (kind=8) , intent (in) :: parm
 147    character (kind=1,len=1) :: _gfortran_specific__char_1_i8
 148    _gfortran_specific__char_1_i8 = char (parm, kind=1)
 149 end function
 150 #endif
 151
 152 #if defined (HAVE_GFC_INTEGER_16)
 153 elemental function _gfortran_specific__char_1_i16 (parm)
 154    integer (kind=16) , intent (in) :: parm
 155    character (kind=1,len=1) :: _gfortran_specific__char_1_i16
 156    _gfortran_specific__char_1_i16 = char (parm, kind=1)
 157 end function
 158 #endif
 159
 160
 161
 162 #if defined (HAVE_GFC_INTEGER_4)
 163 elemental function _gfortran_specific__len_1_i4 (parm)
 164    character (kind=1,len=*) , intent (in) :: parm
 165    integer (kind=4) :: _gfortran_specific__len_1_i4
 166    _gfortran_specific__len_1_i4 = len (parm)
 167 end function
 168 #endif
 169
 170 #if defined (HAVE_GFC_INTEGER_8)
 171 elemental function _gfortran_specific__len_1_i8 (parm)
 172    character (kind=1,len=*) , intent (in) :: parm
 173    integer (kind=8) :: _gfortran_specific__len_1_i8
 174    _gfortran_specific__len_1_i8 = len (parm)
 175 end function
 176 #endif
 177
 178 #if defined (HAVE_GFC_INTEGER_16)
 179 elemental function _gfortran_specific__len_1_i16 (parm)
 180    character (kind=1,len=*) , intent (in) :: parm
 181    integer (kind=16) :: _gfortran_specific__len_1_i16
 182    _gfortran_specific__len_1_i16 = len (parm)
 183 end function
 184 #endif
 185
 186
 187
 188 #if defined (HAVE_GFC_INTEGER_4)
 189 elemental function _gfortran_specific__index_1_i4 (parm1, parm2)
 190    character (kind=1,len=*) , intent (in) :: parm1, parm2
 191    integer (kind=4) :: _gfortran_specific__index_1_i4
 192    _gfortran_specific__index_1_i4 = index (parm1, parm2)
 193 end function
 194 #endif
 195
 196 #if defined (HAVE_GFC_INTEGER_8)
 197 elemental function _gfortran_specific__index_1_i8 (parm1, parm2)
 198    character (kind=1,len=*) , intent (in) :: parm1, parm2
 199    integer (kind=8) :: _gfortran_specific__index_1_i8
 200    _gfortran_specific__index_1_i8 = index (parm1, parm2)
 201 end function
 202 #endif
 203
 204 #if defined (HAVE_GFC_INTEGER_16)
 205 elemental function _gfortran_specific__index_1_i16 (parm1, parm2)
 206    character (kind=1,len=*) , intent (in) :: parm1, parm2
 207    integer (kind=16) :: _gfortran_specific__index_1_i16
 208    _gfortran_specific__index_1_i16 = index (parm1, parm2)
 209 end function
 210 #endif
 211