OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgfortran/] [generated/] [misc_specifics.F90] - Blame information for rev 733

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 733 jeremybenn
!   Copyright 2002, 2007, 2009 Free Software Foundation, Inc.
2
!   Contributed by Paul Brook 
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
!.
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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.