OSDN Git Service

* c99_protos.h: Correctly protect definitions of prototypes for
[pf3gnuchains/gcc-fork.git] / libgfortran / c99_protos.h
1 /* Declarations of various C99 functions 
2    Copyright (C) 2004, 2006 Free Software Foundation, Inc.
3
4 This file is part of the GNU Fortran 95 runtime library (libgfortran).
5
6 Libgfortran is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
10
11 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 Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with libgfortran; see the file COPYING.LIB.  If not,
18 write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
19 Boston, MA 02110-1301, USA.  */
20
21 /* As a special exception, if you link this library with other files,
22    some of which are compiled with GCC, to produce an executable,
23    this library does not by itself cause the resulting executable
24    to be covered by the GNU General Public License.
25    This exception does not however invalidate any other reasons why
26    the executable file might be covered by the GNU General Public License.  */
27
28
29 #ifndef C99_PROTOS_H
30 #define C99_PROTOS_H 1
31
32 /* float variants of libm functions */
33 #ifndef HAVE_ACOSF
34 #define HAVE_ACOSF 1
35 extern float acosf(float);
36 #endif
37
38 #if HAVE_ACOSH && !HAVE_ACOSHF
39 #define HAVE_ACOSHF 1
40 extern float acoshf(float);
41 #endif
42
43 #ifndef HAVE_ASINF
44 #define HAVE_ASINF 1
45 extern float asinf(float);
46 #endif
47
48 #if HAVE_ASINH && !HAVE_ASINHF
49 #define HAVE_ASINHF 1
50 extern float asinhf(float);
51 #endif
52
53 #ifndef HAVE_ATAN2F
54 #define HAVE_ATAN2F 1
55 extern float atan2f(float, float);
56 #endif
57
58 #ifndef HAVE_ATANF
59 #define HAVE_ATANF 1
60 extern float atanf(float);
61 #endif
62
63 #if HAVE_ATANH && !HAVE_ATANHF
64 #define HAVE_ATANHF 1
65 extern float atanhf(float);
66 #endif
67
68 #ifndef HAVE_CEILF
69 #define HAVE_CEILF 1
70 extern float ceilf(float);
71 #endif
72
73 #ifndef HAVE_COPYSIGNF
74 #define HAVE_COPYSIGNF 1
75 extern float copysignf(float, float);
76 #endif
77
78 #ifndef HAVE_COSF
79 #define HAVE_COSF 1
80 extern float cosf(float);
81 #endif
82
83 #ifndef HAVE_COSHF
84 #define HAVE_COSHF 1
85 extern float coshf(float);
86 #endif
87
88 #ifndef HAVE_EXPF
89 #define HAVE_EXPF 1
90 extern float expf(float);
91 #endif
92
93 #ifndef HAVE_FABSF
94 #define HAVE_FABSF 1
95 extern float fabsf(float);
96 #endif
97
98 #ifndef HAVE_FLOORF
99 #define HAVE_FLOORF 1
100 extern float floorf(float);
101 #endif
102
103 #ifndef HAVE_FREXPF
104 #define HAVE_FREXPF 1
105 extern float frexpf(float, int *);
106 #endif
107
108 #ifndef HAVE_HYPOTF
109 #define HAVE_HYPOTF 1
110 extern float hypotf(float, float);
111 #endif
112
113 #ifndef HAVE_LOGF
114 #define HAVE_LOGF 1
115 extern float logf(float);
116 #endif
117
118 #ifndef HAVE_LOG10F
119 #define HAVE_LOG10F 1
120 extern float log10f(float);
121 #endif
122
123 #ifndef HAVE_SCALBN
124 #define HAVE_SCALBN 1
125 extern double scalbn(double, int);
126 #endif
127
128 #ifndef HAVE_SCALBNF
129 #define HAVE_SCALBNF 1
130 extern float scalbnf(float, int);
131 #endif
132
133 #ifndef HAVE_SINF
134 #define HAVE_SINF 1
135 extern float sinf(float);
136 #endif
137
138 #ifndef HAVE_SINHF
139 #define HAVE_SINHF 1
140 extern float sinhf(float);
141 #endif
142
143 #ifndef HAVE_SQRTF
144 #define HAVE_SQRTF 1
145 extern float sqrtf(float);
146 #endif
147
148 #ifndef HAVE_TANF
149 #define HAVE_TANF 1
150 extern float tanf(float);
151 #endif
152
153 #ifndef HAVE_TANHF
154 #define HAVE_TANHF 1
155 extern float tanhf(float);
156 #endif
157
158 #ifndef HAVE_TRUNC
159 #define HAVE_TRUNC 1
160 extern double trunc(double);
161 #endif
162
163 #ifndef HAVE_TRUNCF
164 #define HAVE_TRUNCF 1
165 extern float truncf(float);
166 #endif
167
168 #ifndef HAVE_NEXTAFTERF
169 #define HAVE_NEXTAFTERF 1
170 extern float nextafterf(float, float);
171 #endif
172
173 #ifndef HAVE_POWF
174 #define HAVE_POWF 1
175 extern float powf(float, float);
176 #endif
177
178 #ifndef HAVE_ROUND
179 #define HAVE_ROUND 1
180 extern double round(double);
181 #endif
182
183 #ifndef HAVE_ROUNDF
184 #define HAVE_ROUNDF 1
185 extern float roundf(float);
186 #endif
187
188
189 /* log10l is needed on all platforms for decimal I/O */
190 #ifndef HAVE_LOG10L
191 #define HAVE_LOG10L 1
192 extern long double log10l(long double);
193 #endif
194
195
196 /* complex math functions */
197
198 #if !defined(HAVE_CABSF)
199 #define HAVE_CABSF 1
200 extern float cabsf (float complex);
201 #endif
202
203 #if !defined(HAVE_CABS)
204 #define HAVE_CABS 1
205 extern double cabs (double complex);
206 #endif
207
208 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
209 #define HAVE_CABSL 1
210 extern long double cabsl (long double complex);
211 #endif
212
213
214 #if !defined(HAVE_CARGF)
215 #define HAVE_CARGF 1
216 extern float cargf (float complex);
217 #endif
218
219 #if !defined(HAVE_CARG)
220 #define HAVE_CARG 1
221 extern double carg (double complex);
222 #endif
223
224 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
225 #define HAVE_CARGL 1
226 extern long double cargl (long double complex);
227 #endif
228
229
230 #if !defined(HAVE_CEXPF)
231 #define HAVE_CEXPF 1
232 extern float complex cexpf (float complex);
233 #endif
234
235 #if !defined(HAVE_CEXP)
236 #define HAVE_CEXP 1
237 extern double complex cexp (double complex);
238 #endif
239
240 #if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
241 #define HAVE_CEXPL 1
242 extern long double complex cexpl (long double complex);
243 #endif
244
245
246 #if !defined(HAVE_CLOGF)
247 #define HAVE_CLOGF 1
248 extern float complex clogf (float complex);
249 #endif
250
251 #if !defined(HAVE_CLOG)
252 #define HAVE_CLOG 1
253 extern double complex clog (double complex);
254 #endif
255
256 #if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
257 #define HAVE_CLOGL 1
258 extern long double complex clogl (long double complex);
259 #endif
260
261
262 #if !defined(HAVE_CLOG10F)
263 #define HAVE_CLOG10F 1
264 extern float complex clog10f (float complex);
265 #endif
266
267 #if !defined(HAVE_CLOG10)
268 #define HAVE_CLOG10 1
269 extern double complex clog10 (double complex);
270 #endif
271
272 #if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
273 #define HAVE_CLOG10L 1
274 extern long double complex clog10l (long double complex);
275 #endif
276
277
278 #if !defined(HAVE_CPOWF)
279 #define HAVE_CPOWF 1
280 extern float complex cpowf (float complex, float complex);
281 #endif
282
283 #if !defined(HAVE_CPOW)
284 #define HAVE_CPOW 1
285 extern double complex cpow (double complex, double complex);
286 #endif
287
288 #if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
289 #define HAVE_CPOWL 1
290 extern long double complex cpowl (long double complex, long double complex);
291 #endif
292
293
294 #if !defined(HAVE_CSQRTF)
295 #define HAVE_CSQRTF 1 
296 extern float complex csqrtf (float complex);
297 #endif
298
299 #if !defined(HAVE_CSQRT)
300 #define HAVE_CSQRT 1
301 extern double complex csqrt (double complex);
302 #endif
303
304 #if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
305 #define HAVE_CSQRTL 1
306 extern long double complex csqrtl (long double complex);
307 #endif
308
309
310 #if !defined(HAVE_CSINHF)
311 #define HAVE_CSINHF 1
312 extern float complex csinhf (float complex);
313 #endif
314
315 #if !defined(HAVE_CSINH)
316 #define HAVE_CSINH 1
317 extern double complex csinh (double complex);
318 #endif
319
320 #if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
321 #define HAVE_CSINHL 1
322 extern long double complex csinhl (long double complex);
323 #endif
324
325
326 #if !defined(HAVE_CCOSHF)
327 #define HAVE_CCOSHF 1
328 extern float complex ccoshf (float complex);
329 #endif
330
331 #if !defined(HAVE_CCOSH)
332 #define HAVE_CCOSH 1
333 extern double complex ccosh (double complex);
334 #endif
335
336 #if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
337 #define HAVE_CCOSHL 1
338 extern long double complex ccoshl (long double complex);
339 #endif
340
341
342 #if !defined(HAVE_CTANHF)
343 #define HAVE_CTANHF 1
344 extern float complex ctanhf (float complex);
345 #endif
346
347 #if !defined(HAVE_CTANH)
348 #define HAVE_CTANH 1
349 extern double complex ctanh (double complex);
350 #endif
351
352 #if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
353 #define HAVE_CTANHL 1
354 extern long double complex ctanhl (long double complex);
355 #endif
356
357
358 #if !defined(HAVE_CSINF)
359 #define HAVE_CSINF 1
360 extern float complex csinf (float complex);
361 #endif
362
363 #if !defined(HAVE_CSIN)
364 #define HAVE_CSIN 1
365 extern double complex csin (double complex);
366 #endif
367
368 #if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
369 #define HAVE_CSINL 1
370 extern long double complex csinl (long double complex);
371 #endif
372
373
374 #if !defined(HAVE_CCOSF)
375 #define HAVE_CCOSF 1
376 extern float complex ccosf (float complex);
377 #endif
378
379 #if !defined(HAVE_CCOS)
380 #define HAVE_CCOS 1
381 extern double complex ccos (double complex);
382 #endif
383
384 #if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
385 #define HAVE_CCOSL 1
386 extern long double complex ccosl (long double complex);
387 #endif
388
389
390 #if !defined(HAVE_CTANF)
391 #define HAVE_CTANF 1
392 extern float complex ctanf (float complex);
393 #endif
394
395 #if !defined(HAVE_CTAN)
396 #define HAVE_CTAN 1
397 extern double complex ctan (double complex);
398 #endif
399
400 #if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
401 #define HAVE_CTANL 1
402 extern long double complex ctanl (long double complex);
403 #endif
404
405
406 #endif  /* C99_PROTOS_H  */
407