OSDN Git Service

* ifcvt.c (cond_exec_find_if_block): Return FALSE if no
[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_FLOORL
104 #define HAVE_FLOORL 1
105 extern long double floorl (long double x);
106 #endif
107
108 #ifndef HAVE_FMODF
109 #define HAVE_FMODF 1
110 extern float fmodf (float x, float y);
111 #endif
112
113 #ifndef HAVE_FMODL
114 #define HAVE_FMODL 1
115 extern long double fmodl (long double x, long double y);
116 #endif
117
118 #ifndef HAVE_FREXPF
119 #define HAVE_FREXPF 1
120 extern float frexpf(float, int *);
121 #endif
122
123 #ifndef HAVE_HYPOTF
124 #define HAVE_HYPOTF 1
125 extern float hypotf(float, float);
126 #endif
127
128 #ifndef HAVE_LOGF
129 #define HAVE_LOGF 1
130 extern float logf(float);
131 #endif
132
133 #ifndef HAVE_LOG10F
134 #define HAVE_LOG10F 1
135 extern float log10f(float);
136 #endif
137
138 #ifndef HAVE_SCALBN
139 #define HAVE_SCALBN 1
140 extern double scalbn(double, int);
141 #endif
142
143 #ifndef HAVE_SCALBNF
144 #define HAVE_SCALBNF 1
145 extern float scalbnf(float, int);
146 #endif
147
148 #ifndef HAVE_SINF
149 #define HAVE_SINF 1
150 extern float sinf(float);
151 #endif
152
153 #ifndef HAVE_SINHF
154 #define HAVE_SINHF 1
155 extern float sinhf(float);
156 #endif
157
158 #ifndef HAVE_SQRTF
159 #define HAVE_SQRTF 1
160 extern float sqrtf(float);
161 #endif
162
163 #ifndef HAVE_TANF
164 #define HAVE_TANF 1
165 extern float tanf(float);
166 #endif
167
168 #ifndef HAVE_TANHF
169 #define HAVE_TANHF 1
170 extern float tanhf(float);
171 #endif
172
173 #ifndef HAVE_TRUNC
174 #define HAVE_TRUNC 1
175 extern double trunc(double);
176 #endif
177
178 #ifndef HAVE_TRUNCF
179 #define HAVE_TRUNCF 1
180 extern float truncf(float);
181 #endif
182
183 #ifndef HAVE_NEXTAFTERF
184 #define HAVE_NEXTAFTERF 1
185 extern float nextafterf(float, float);
186 #endif
187
188 #ifndef HAVE_POWF
189 #define HAVE_POWF 1
190 extern float powf(float, float);
191 #endif
192
193 #ifndef HAVE_ROUND
194 #define HAVE_ROUND 1
195 extern double round(double);
196 #endif
197
198 #ifndef HAVE_ROUNDF
199 #define HAVE_ROUNDF 1
200 extern float roundf(float);
201 #endif
202
203 /* Wrappers for systems without the various C99 single precision Bessel
204    functions.  */
205
206 #if defined(HAVE_J0) && ! defined(HAVE_J0F)
207 #define HAVE_J0F 1
208 extern float j0f (float);
209 #endif
210
211 #if defined(HAVE_J1) && !defined(HAVE_J1F)
212 #define HAVE_J1F 1
213 extern float j1f (float);
214 #endif
215
216 #if defined(HAVE_JN) && !defined(HAVE_JNF)
217 #define HAVE_JNF 1
218 extern float jnf (int, float);
219 #endif
220
221 #if defined(HAVE_Y0) && !defined(HAVE_Y0F)
222 #define HAVE_Y0F 1
223 extern float y0f (float);
224 #endif
225
226 #if defined(HAVE_Y1) && !defined(HAVE_Y1F)
227 #define HAVE_Y1F 1
228 extern float y1f (float);
229 #endif
230
231 #if defined(HAVE_YN) && !defined(HAVE_YNF)
232 #define HAVE_YNF 1
233 extern float ynf (int, float);
234 #endif
235
236
237 /* Wrappers for systems without the C99 erff() and erfcf() functions.  */
238
239 #if defined(HAVE_ERF) && !defined(HAVE_ERFF)
240 #define HAVE_ERFF 1
241 extern float erff (float);
242 #endif
243
244 #if defined(HAVE_ERFC) && !defined(HAVE_ERFCF)
245 #define HAVE_ERFCF 1
246 extern float erfcf (float);
247 #endif
248
249
250
251 /* log10l is needed on all platforms for decimal I/O */
252 #ifndef HAVE_LOG10L
253 #define HAVE_LOG10L 1
254 extern long double log10l(long double);
255 #endif
256
257
258 /* complex math functions */
259
260 #if !defined(HAVE_CABSF)
261 #define HAVE_CABSF 1
262 extern float cabsf (float complex);
263 #endif
264
265 #if !defined(HAVE_CABS)
266 #define HAVE_CABS 1
267 extern double cabs (double complex);
268 #endif
269
270 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
271 #define HAVE_CABSL 1
272 extern long double cabsl (long double complex);
273 #endif
274
275
276 #if !defined(HAVE_CARGF)
277 #define HAVE_CARGF 1
278 extern float cargf (float complex);
279 #endif
280
281 #if !defined(HAVE_CARG)
282 #define HAVE_CARG 1
283 extern double carg (double complex);
284 #endif
285
286 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
287 #define HAVE_CARGL 1
288 extern long double cargl (long double complex);
289 #endif
290
291
292 #if !defined(HAVE_CEXPF)
293 #define HAVE_CEXPF 1
294 extern float complex cexpf (float complex);
295 #endif
296
297 #if !defined(HAVE_CEXP)
298 #define HAVE_CEXP 1
299 extern double complex cexp (double complex);
300 #endif
301
302 #if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
303 #define HAVE_CEXPL 1
304 extern long double complex cexpl (long double complex);
305 #endif
306
307
308 #if !defined(HAVE_CLOGF)
309 #define HAVE_CLOGF 1
310 extern float complex clogf (float complex);
311 #endif
312
313 #if !defined(HAVE_CLOG)
314 #define HAVE_CLOG 1
315 extern double complex clog (double complex);
316 #endif
317
318 #if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
319 #define HAVE_CLOGL 1
320 extern long double complex clogl (long double complex);
321 #endif
322
323
324 #if !defined(HAVE_CLOG10F)
325 #define HAVE_CLOG10F 1
326 extern float complex clog10f (float complex);
327 #endif
328
329 #if !defined(HAVE_CLOG10)
330 #define HAVE_CLOG10 1
331 extern double complex clog10 (double complex);
332 #endif
333
334 #if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
335 #define HAVE_CLOG10L 1
336 extern long double complex clog10l (long double complex);
337 #endif
338
339
340 #if !defined(HAVE_CPOWF)
341 #define HAVE_CPOWF 1
342 extern float complex cpowf (float complex, float complex);
343 #endif
344
345 #if !defined(HAVE_CPOW)
346 #define HAVE_CPOW 1
347 extern double complex cpow (double complex, double complex);
348 #endif
349
350 #if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
351 #define HAVE_CPOWL 1
352 extern long double complex cpowl (long double complex, long double complex);
353 #endif
354
355
356 #if !defined(HAVE_CSQRTF)
357 #define HAVE_CSQRTF 1 
358 extern float complex csqrtf (float complex);
359 #endif
360
361 #if !defined(HAVE_CSQRT)
362 #define HAVE_CSQRT 1
363 extern double complex csqrt (double complex);
364 #endif
365
366 #if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
367 #define HAVE_CSQRTL 1
368 extern long double complex csqrtl (long double complex);
369 #endif
370
371
372 #if !defined(HAVE_CSINHF)
373 #define HAVE_CSINHF 1
374 extern float complex csinhf (float complex);
375 #endif
376
377 #if !defined(HAVE_CSINH)
378 #define HAVE_CSINH 1
379 extern double complex csinh (double complex);
380 #endif
381
382 #if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
383 #define HAVE_CSINHL 1
384 extern long double complex csinhl (long double complex);
385 #endif
386
387
388 #if !defined(HAVE_CCOSHF)
389 #define HAVE_CCOSHF 1
390 extern float complex ccoshf (float complex);
391 #endif
392
393 #if !defined(HAVE_CCOSH)
394 #define HAVE_CCOSH 1
395 extern double complex ccosh (double complex);
396 #endif
397
398 #if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
399 #define HAVE_CCOSHL 1
400 extern long double complex ccoshl (long double complex);
401 #endif
402
403
404 #if !defined(HAVE_CTANHF)
405 #define HAVE_CTANHF 1
406 extern float complex ctanhf (float complex);
407 #endif
408
409 #if !defined(HAVE_CTANH)
410 #define HAVE_CTANH 1
411 extern double complex ctanh (double complex);
412 #endif
413
414 #if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
415 #define HAVE_CTANHL 1
416 extern long double complex ctanhl (long double complex);
417 #endif
418
419
420 #if !defined(HAVE_CSINF)
421 #define HAVE_CSINF 1
422 extern float complex csinf (float complex);
423 #endif
424
425 #if !defined(HAVE_CSIN)
426 #define HAVE_CSIN 1
427 extern double complex csin (double complex);
428 #endif
429
430 #if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
431 #define HAVE_CSINL 1
432 extern long double complex csinl (long double complex);
433 #endif
434
435
436 #if !defined(HAVE_CCOSF)
437 #define HAVE_CCOSF 1
438 extern float complex ccosf (float complex);
439 #endif
440
441 #if !defined(HAVE_CCOS)
442 #define HAVE_CCOS 1
443 extern double complex ccos (double complex);
444 #endif
445
446 #if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
447 #define HAVE_CCOSL 1
448 extern long double complex ccosl (long double complex);
449 #endif
450
451
452 #if !defined(HAVE_CTANF)
453 #define HAVE_CTANF 1
454 extern float complex ctanf (float complex);
455 #endif
456
457 #if !defined(HAVE_CTAN)
458 #define HAVE_CTAN 1
459 extern double complex ctan (double complex);
460 #endif
461
462 #if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
463 #define HAVE_CTANL 1
464 extern long double complex ctanl (long double complex);
465 #endif
466
467
468 #endif  /* C99_PROTOS_H  */
469