1 ! Copyright 2002 Free Software Foundation, Inc.
2 ! Contributed by Paul Brook <paul@nowt.org>
4 !This file is part of the GNU Fortran 95 runtime library (libgfortran).
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.
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
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.
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.
30 !This file is machine generated.
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)