OSDN Git Service

* Makefile.am: Remove intrinsics/erf.c and intrinsics/bessel.c.
[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 /* Wrappers for systems without the various C99 single precision Bessel
189    functions.  */
190
191 #if defined(HAVE_J0) && ! defined(HAVE_J0F)
192 #define HAVE_J0F 1
193 extern float j0f (float);
194 #endif
195
196 #if defined(HAVE_J1) && !defined(HAVE_J1F)
197 #define HAVE_J1F 1
198 extern float j1f (float);
199 #endif
200
201 #if defined(HAVE_JN) && !defined(HAVE_JNF)
202 #define HAVE_JNF 1
203 extern float jnf (int, float);
204 #endif
205
206 #if defined(HAVE_Y0) && !defined(HAVE_Y0F)
207 #define HAVE_Y0F 1
208 extern float y0f (float);
209 #endif
210
211 #if defined(HAVE_Y1) && !defined(HAVE_Y1F)
212 #define HAVE_Y1F 1
213 extern float y1f (float);
214 #endif
215
216 #if defined(HAVE_YN) && !defined(HAVE_YNF)
217 #define HAVE_YNF 1
218 extern float ynf (int, float);
219 #endif
220
221
222 /* Wrappers for systems without the C99 erff() and erfcf() functions.  */
223
224 #if defined(HAVE_ERF) && !defined(HAVE_ERFF)
225 #define HAVE_ERFF 1
226 extern float erff (float);
227 #endif
228
229 #if defined(HAVE_ERFC) && !defined(HAVE_ERFCF)
230 #define HAVE_ERFCF 1
231 extern float erfcf (float);
232 #endif
233
234
235
236 /* log10l is needed on all platforms for decimal I/O */
237 #ifndef HAVE_LOG10L
238 #define HAVE_LOG10L 1
239 extern long double log10l(long double);
240 #endif
241
242
243 /* complex math functions */
244
245 #if !defined(HAVE_CABSF)
246 #define HAVE_CABSF 1
247 extern float cabsf (float complex);
248 #endif
249
250 #if !defined(HAVE_CABS)
251 #define HAVE_CABS 1
252 extern double cabs (double complex);
253 #endif
254
255 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
256 #define HAVE_CABSL 1
257 extern long double cabsl (long double complex);
258 #endif
259
260
261 #if !defined(HAVE_CARGF)
262 #define HAVE_CARGF 1
263 extern float cargf (float complex);
264 #endif
265
266 #if !defined(HAVE_CARG)
267 #define HAVE_CARG 1
268 extern double carg (double complex);
269 #endif
270
271 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
272 #define HAVE_CARGL 1
273 extern long double cargl (long double complex);
274 #endif
275
276
277 #if !defined(HAVE_CEXPF)
278 #define HAVE_CEXPF 1
279 extern float complex cexpf (float complex);
280 #endif
281
282 #if !defined(HAVE_CEXP)
283 #define HAVE_CEXP 1
284 extern double complex cexp (double complex);
285 #endif
286
287 #if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
288 #define HAVE_CEXPL 1
289 extern long double complex cexpl (long double complex);
290 #endif
291
292
293 #if !defined(HAVE_CLOGF)
294 #define HAVE_CLOGF 1
295 extern float complex clogf (float complex);
296 #endif
297
298 #if !defined(HAVE_CLOG)
299 #define HAVE_CLOG 1
300 extern double complex clog (double complex);
301 #endif
302
303 #if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
304 #define HAVE_CLOGL 1
305 extern long double complex clogl (long double complex);
306 #endif
307
308
309 #if !defined(HAVE_CLOG10F)
310 #define HAVE_CLOG10F 1
311 extern float complex clog10f (float complex);
312 #endif
313
314 #if !defined(HAVE_CLOG10)
315 #define HAVE_CLOG10 1
316 extern double complex clog10 (double complex);
317 #endif
318
319 #if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
320 #define HAVE_CLOG10L 1
321 extern long double complex clog10l (long double complex);
322 #endif
323
324
325 #if !defined(HAVE_CPOWF)
326 #define HAVE_CPOWF 1
327 extern float complex cpowf (float complex, float complex);
328 #endif
329
330 #if !defined(HAVE_CPOW)
331 #define HAVE_CPOW 1
332 extern double complex cpow (double complex, double complex);
333 #endif
334
335 #if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
336 #define HAVE_CPOWL 1
337 extern long double complex cpowl (long double complex, long double complex);
338 #endif
339
340
341 #if !defined(HAVE_CSQRTF)
342 #define HAVE_CSQRTF 1 
343 extern float complex csqrtf (float complex);
344 #endif
345
346 #if !defined(HAVE_CSQRT)
347 #define HAVE_CSQRT 1
348 extern double complex csqrt (double complex);
349 #endif
350
351 #if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
352 #define HAVE_CSQRTL 1
353 extern long double complex csqrtl (long double complex);
354 #endif
355
356
357 #if !defined(HAVE_CSINHF)
358 #define HAVE_CSINHF 1
359 extern float complex csinhf (float complex);
360 #endif
361
362 #if !defined(HAVE_CSINH)
363 #define HAVE_CSINH 1
364 extern double complex csinh (double complex);
365 #endif
366
367 #if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
368 #define HAVE_CSINHL 1
369 extern long double complex csinhl (long double complex);
370 #endif
371
372
373 #if !defined(HAVE_CCOSHF)
374 #define HAVE_CCOSHF 1
375 extern float complex ccoshf (float complex);
376 #endif
377
378 #if !defined(HAVE_CCOSH)
379 #define HAVE_CCOSH 1
380 extern double complex ccosh (double complex);
381 #endif
382
383 #if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
384 #define HAVE_CCOSHL 1
385 extern long double complex ccoshl (long double complex);
386 #endif
387
388
389 #if !defined(HAVE_CTANHF)
390 #define HAVE_CTANHF 1
391 extern float complex ctanhf (float complex);
392 #endif
393
394 #if !defined(HAVE_CTANH)
395 #define HAVE_CTANH 1
396 extern double complex ctanh (double complex);
397 #endif
398
399 #if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
400 #define HAVE_CTANHL 1
401 extern long double complex ctanhl (long double complex);
402 #endif
403
404
405 #if !defined(HAVE_CSINF)
406 #define HAVE_CSINF 1
407 extern float complex csinf (float complex);
408 #endif
409
410 #if !defined(HAVE_CSIN)
411 #define HAVE_CSIN 1
412 extern double complex csin (double complex);
413 #endif
414
415 #if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
416 #define HAVE_CSINL 1
417 extern long double complex csinl (long double complex);
418 #endif
419
420
421 #if !defined(HAVE_CCOSF)
422 #define HAVE_CCOSF 1
423 extern float complex ccosf (float complex);
424 #endif
425
426 #if !defined(HAVE_CCOS)
427 #define HAVE_CCOS 1
428 extern double complex ccos (double complex);
429 #endif
430
431 #if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
432 #define HAVE_CCOSL 1
433 extern long double complex ccosl (long double complex);
434 #endif
435
436
437 #if !defined(HAVE_CTANF)
438 #define HAVE_CTANF 1
439 extern float complex ctanf (float complex);
440 #endif
441
442 #if !defined(HAVE_CTAN)
443 #define HAVE_CTAN 1
444 extern double complex ctan (double complex);
445 #endif
446
447 #if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
448 #define HAVE_CTANL 1
449 extern long double complex ctanl (long double complex);
450 #endif
451
452
453 #endif  /* C99_PROTOS_H  */
454