]>
Commit | Line | Data |
---|---|---|
a945c346 | 1 | ! Copyright (C) 2002-2024 Free Software Foundation, Inc. |
0e7e7e6e FXC |
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 | |
748086b7 | 9 | !version 3 of the License, or (at your option) any later version. |
3d2244b9 | 10 | |
0e7e7e6e FXC |
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 | ! | |
748086b7 JJ |
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/>. | |
0e7e7e6e FXC |
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) | |
e6472bce | 34 | elemental function _gfortran_specific__nint_4_4 (parm) |
0e7e7e6e | 35 | real (kind=4) , intent (in) :: parm |
e6472bce FXC |
36 | integer (kind=4) :: _gfortran_specific__nint_4_4 |
37 | _gfortran_specific__nint_4_4 = nint (parm) | |
0e7e7e6e FXC |
38 | end function |
39 | #endif | |
40 | ||
41 | #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 42 | elemental function _gfortran_specific__nint_4_8 (parm) |
0e7e7e6e | 43 | real (kind=8) , intent (in) :: parm |
e6472bce FXC |
44 | integer (kind=4) :: _gfortran_specific__nint_4_8 |
45 | _gfortran_specific__nint_4_8 = nint (parm) | |
0e7e7e6e FXC |
46 | end function |
47 | #endif | |
48 | ||
49 | #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 50 | elemental function _gfortran_specific__nint_4_10 (parm) |
0e7e7e6e | 51 | real (kind=10) , intent (in) :: parm |
e6472bce FXC |
52 | integer (kind=4) :: _gfortran_specific__nint_4_10 |
53 | _gfortran_specific__nint_4_10 = nint (parm) | |
0e7e7e6e FXC |
54 | end function |
55 | #endif | |
56 | ||
57 | #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 58 | elemental function _gfortran_specific__nint_4_16 (parm) |
0e7e7e6e | 59 | real (kind=16) , intent (in) :: parm |
e6472bce FXC |
60 | integer (kind=4) :: _gfortran_specific__nint_4_16 |
61 | _gfortran_specific__nint_4_16 = nint (parm) | |
0e7e7e6e FXC |
62 | end function |
63 | #endif | |
64 | ||
65 | #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 66 | elemental function _gfortran_specific__nint_8_4 (parm) |
0e7e7e6e | 67 | real (kind=4) , intent (in) :: parm |
e6472bce FXC |
68 | integer (kind=8) :: _gfortran_specific__nint_8_4 |
69 | _gfortran_specific__nint_8_4 = nint (parm) | |
0e7e7e6e FXC |
70 | end function |
71 | #endif | |
72 | ||
73 | #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 74 | elemental function _gfortran_specific__nint_8_8 (parm) |
0e7e7e6e | 75 | real (kind=8) , intent (in) :: parm |
e6472bce FXC |
76 | integer (kind=8) :: _gfortran_specific__nint_8_8 |
77 | _gfortran_specific__nint_8_8 = nint (parm) | |
0e7e7e6e FXC |
78 | end function |
79 | #endif | |
80 | ||
81 | #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 82 | elemental function _gfortran_specific__nint_8_10 (parm) |
0e7e7e6e | 83 | real (kind=10) , intent (in) :: parm |
e6472bce FXC |
84 | integer (kind=8) :: _gfortran_specific__nint_8_10 |
85 | _gfortran_specific__nint_8_10 = nint (parm) | |
0e7e7e6e FXC |
86 | end function |
87 | #endif | |
88 | ||
89 | #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 90 | elemental function _gfortran_specific__nint_8_16 (parm) |
0e7e7e6e | 91 | real (kind=16) , intent (in) :: parm |
e6472bce FXC |
92 | integer (kind=8) :: _gfortran_specific__nint_8_16 |
93 | _gfortran_specific__nint_8_16 = nint (parm) | |
0e7e7e6e FXC |
94 | end function |
95 | #endif | |
96 | ||
97 | #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 98 | elemental function _gfortran_specific__nint_16_4 (parm) |
0e7e7e6e | 99 | real (kind=4) , intent (in) :: parm |
e6472bce FXC |
100 | integer (kind=16) :: _gfortran_specific__nint_16_4 |
101 | _gfortran_specific__nint_16_4 = nint (parm) | |
0e7e7e6e FXC |
102 | end function |
103 | #endif | |
104 | ||
105 | #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 106 | elemental function _gfortran_specific__nint_16_8 (parm) |
0e7e7e6e | 107 | real (kind=8) , intent (in) :: parm |
e6472bce FXC |
108 | integer (kind=16) :: _gfortran_specific__nint_16_8 |
109 | _gfortran_specific__nint_16_8 = nint (parm) | |
0e7e7e6e FXC |
110 | end function |
111 | #endif | |
112 | ||
113 | #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 114 | elemental function _gfortran_specific__nint_16_10 (parm) |
0e7e7e6e | 115 | real (kind=10) , intent (in) :: parm |
e6472bce FXC |
116 | integer (kind=16) :: _gfortran_specific__nint_16_10 |
117 | _gfortran_specific__nint_16_10 = nint (parm) | |
0e7e7e6e FXC |
118 | end function |
119 | #endif | |
120 | ||
121 | #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 122 | elemental function _gfortran_specific__nint_16_16 (parm) |
0e7e7e6e | 123 | real (kind=16) , intent (in) :: parm |
e6472bce FXC |
124 | integer (kind=16) :: _gfortran_specific__nint_16_16 |
125 | _gfortran_specific__nint_16_16 = nint (parm) | |
0e7e7e6e FXC |
126 | end function |
127 | #endif | |
128 | ||
129 | ||
130 | ||
131 | #if defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 132 | elemental function _gfortran_specific__char_1_i4 (parm) |
0e7e7e6e | 133 | integer (kind=4) , intent (in) :: parm |
e6472bce FXC |
134 | character (kind=1,len=1) :: _gfortran_specific__char_1_i4 |
135 | _gfortran_specific__char_1_i4 = char (parm, kind=1) | |
0e7e7e6e FXC |
136 | end function |
137 | #endif | |
138 | ||
139 | #if defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 140 | elemental function _gfortran_specific__char_1_i8 (parm) |
0e7e7e6e | 141 | integer (kind=8) , intent (in) :: parm |
e6472bce FXC |
142 | character (kind=1,len=1) :: _gfortran_specific__char_1_i8 |
143 | _gfortran_specific__char_1_i8 = char (parm, kind=1) | |
0e7e7e6e FXC |
144 | end function |
145 | #endif | |
146 | ||
147 | #if defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 148 | elemental function _gfortran_specific__char_1_i16 (parm) |
0e7e7e6e | 149 | integer (kind=16) , intent (in) :: parm |
e6472bce FXC |
150 | character (kind=1,len=1) :: _gfortran_specific__char_1_i16 |
151 | _gfortran_specific__char_1_i16 = char (parm, kind=1) | |
0e7e7e6e FXC |
152 | end function |
153 | #endif | |
154 | ||
155 | ||
156 | ||
157 | #if defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 158 | elemental function _gfortran_specific__len_1_i4 (parm) |
0e7e7e6e | 159 | character (kind=1,len=*) , intent (in) :: parm |
e6472bce FXC |
160 | integer (kind=4) :: _gfortran_specific__len_1_i4 |
161 | _gfortran_specific__len_1_i4 = len (parm) | |
0e7e7e6e FXC |
162 | end function |
163 | #endif | |
164 | ||
165 | #if defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 166 | elemental function _gfortran_specific__len_1_i8 (parm) |
0e7e7e6e | 167 | character (kind=1,len=*) , intent (in) :: parm |
e6472bce FXC |
168 | integer (kind=8) :: _gfortran_specific__len_1_i8 |
169 | _gfortran_specific__len_1_i8 = len (parm) | |
0e7e7e6e FXC |
170 | end function |
171 | #endif | |
172 | ||
173 | #if defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 174 | elemental function _gfortran_specific__len_1_i16 (parm) |
0e7e7e6e | 175 | character (kind=1,len=*) , intent (in) :: parm |
e6472bce FXC |
176 | integer (kind=16) :: _gfortran_specific__len_1_i16 |
177 | _gfortran_specific__len_1_i16 = len (parm) | |
0e7e7e6e FXC |
178 | end function |
179 | #endif | |
180 | ||
181 | ||
182 | ||
183 | #if defined (HAVE_GFC_INTEGER_4) | |
e6472bce | 184 | elemental function _gfortran_specific__index_1_i4 (parm1, parm2) |
0e7e7e6e | 185 | character (kind=1,len=*) , intent (in) :: parm1, parm2 |
e6472bce FXC |
186 | integer (kind=4) :: _gfortran_specific__index_1_i4 |
187 | _gfortran_specific__index_1_i4 = index (parm1, parm2) | |
0e7e7e6e FXC |
188 | end function |
189 | #endif | |
190 | ||
191 | #if defined (HAVE_GFC_INTEGER_8) | |
e6472bce | 192 | elemental function _gfortran_specific__index_1_i8 (parm1, parm2) |
0e7e7e6e | 193 | character (kind=1,len=*) , intent (in) :: parm1, parm2 |
e6472bce FXC |
194 | integer (kind=8) :: _gfortran_specific__index_1_i8 |
195 | _gfortran_specific__index_1_i8 = index (parm1, parm2) | |
0e7e7e6e FXC |
196 | end function |
197 | #endif | |
198 | ||
199 | #if defined (HAVE_GFC_INTEGER_16) | |
e6472bce | 200 | elemental function _gfortran_specific__index_1_i16 (parm1, parm2) |
0e7e7e6e | 201 | character (kind=1,len=*) , intent (in) :: parm1, parm2 |
e6472bce FXC |
202 | integer (kind=16) :: _gfortran_specific__index_1_i16 |
203 | _gfortran_specific__index_1_i16 = index (parm1, parm2) | |
0e7e7e6e FXC |
204 | end function |
205 | #endif | |
206 |