1! Copyright (C) 2002-2022 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) 34elemental 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) 38end function 39#endif 40 41#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) 42elemental 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) 46end function 47#endif 48 49#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) 50elemental 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) 54end function 55#endif 56 57#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) 58elemental 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) 62end function 63#endif 64 65#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) 66elemental 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) 70end function 71#endif 72 73#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) 74elemental 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) 78end function 79#endif 80 81#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) 82elemental 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) 86end function 87#endif 88 89#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) 90elemental 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) 94end function 95#endif 96 97#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) 98elemental 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) 102end function 103#endif 104 105#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) 106elemental 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) 110end function 111#endif 112 113#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) 114elemental 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) 118end function 119#endif 120 121#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) 122elemental 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) 126end function 127#endif 128 129 130 131#if defined (HAVE_GFC_INTEGER_4) 132elemental 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) 136end function 137#endif 138 139#if defined (HAVE_GFC_INTEGER_8) 140elemental 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) 144end function 145#endif 146 147#if defined (HAVE_GFC_INTEGER_16) 148elemental 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) 152end function 153#endif 154 155 156 157#if defined (HAVE_GFC_INTEGER_4) 158elemental 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) 162end function 163#endif 164 165#if defined (HAVE_GFC_INTEGER_8) 166elemental 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) 170end function 171#endif 172 173#if defined (HAVE_GFC_INTEGER_16) 174elemental 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) 178end function 179#endif 180 181 182 183#if defined (HAVE_GFC_INTEGER_4) 184elemental 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) 188end function 189#endif 190 191#if defined (HAVE_GFC_INTEGER_8) 192elemental 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) 196end function 197#endif 198 199#if defined (HAVE_GFC_INTEGER_16) 200elemental 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) 204end function 205#endif 206 207