1 /* Declarations of various C99 functions
2 Copyright (C) 2004, 2006 Free Software Foundation, Inc.
4 This file is part of the GNU Fortran 95 runtime library (libgfortran).
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.
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.
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. */
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. */
30 #define C99_PROTOS_H 1
32 /* float variants of libm functions */
35 extern float acosf(float);
38 #if HAVE_ACOSH && !HAVE_ACOSHF
40 extern float acoshf(float);
45 extern float asinf(float);
48 #if HAVE_ASINH && !HAVE_ASINHF
50 extern float asinhf(float);
55 extern float atan2f(float, float);
60 extern float atanf(float);
63 #if HAVE_ATANH && !HAVE_ATANHF
65 extern float atanhf(float);
70 extern float ceilf(float);
73 #ifndef HAVE_COPYSIGNF
74 #define HAVE_COPYSIGNF 1
75 extern float copysignf(float, float);
80 extern float cosf(float);
85 extern float coshf(float);
90 extern float expf(float);
95 extern float fabsf(float);
100 extern float floorf(float);
104 #define HAVE_FREXPF 1
105 extern float frexpf(float, int *);
109 #define HAVE_HYPOTF 1
110 extern float hypotf(float, float);
115 extern float logf(float);
119 #define HAVE_LOG10F 1
120 extern float log10f(float);
124 #define HAVE_SCALBN 1
125 extern double scalbn(double, int);
129 #define HAVE_SCALBNF 1
130 extern float scalbnf(float, int);
135 extern float sinf(float);
140 extern float sinhf(float);
145 extern float sqrtf(float);
150 extern float tanf(float);
155 extern float tanhf(float);
160 extern double trunc(double);
164 #define HAVE_TRUNCF 1
165 extern float truncf(float);
168 #ifndef HAVE_NEXTAFTERF
169 #define HAVE_NEXTAFTERF 1
170 extern float nextafterf(float, float);
175 extern float powf(float, float);
180 extern double round(double);
184 #define HAVE_ROUNDF 1
185 extern float roundf(float);
188 /* Wrappers for systems without the various C99 single precision Bessel
191 #if defined(HAVE_J0) && ! defined(HAVE_J0F)
193 extern float j0f (float);
196 #if defined(HAVE_J1) && !defined(HAVE_J1F)
198 extern float j1f (float);
201 #if defined(HAVE_JN) && !defined(HAVE_JNF)
203 extern float jnf (int, float);
206 #if defined(HAVE_Y0) && !defined(HAVE_Y0F)
208 extern float y0f (float);
211 #if defined(HAVE_Y1) && !defined(HAVE_Y1F)
213 extern float y1f (float);
216 #if defined(HAVE_YN) && !defined(HAVE_YNF)
218 extern float ynf (int, float);
222 /* Wrappers for systems without the C99 erff() and erfcf() functions. */
224 #if defined(HAVE_ERF) && !defined(HAVE_ERFF)
226 extern float erff (float);
229 #if defined(HAVE_ERFC) && !defined(HAVE_ERFCF)
231 extern float erfcf (float);
236 /* log10l is needed on all platforms for decimal I/O */
238 #define HAVE_LOG10L 1
239 extern long double log10l(long double);
243 /* complex math functions */
245 #if !defined(HAVE_CABSF)
247 extern float cabsf (float complex);
250 #if !defined(HAVE_CABS)
252 extern double cabs (double complex);
255 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
257 extern long double cabsl (long double complex);
261 #if !defined(HAVE_CARGF)
263 extern float cargf (float complex);
266 #if !defined(HAVE_CARG)
268 extern double carg (double complex);
271 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
273 extern long double cargl (long double complex);
277 #if !defined(HAVE_CEXPF)
279 extern float complex cexpf (float complex);
282 #if !defined(HAVE_CEXP)
284 extern double complex cexp (double complex);
287 #if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
289 extern long double complex cexpl (long double complex);
293 #if !defined(HAVE_CLOGF)
295 extern float complex clogf (float complex);
298 #if !defined(HAVE_CLOG)
300 extern double complex clog (double complex);
303 #if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
305 extern long double complex clogl (long double complex);
309 #if !defined(HAVE_CLOG10F)
310 #define HAVE_CLOG10F 1
311 extern float complex clog10f (float complex);
314 #if !defined(HAVE_CLOG10)
315 #define HAVE_CLOG10 1
316 extern double complex clog10 (double complex);
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);
325 #if !defined(HAVE_CPOWF)
327 extern float complex cpowf (float complex, float complex);
330 #if !defined(HAVE_CPOW)
332 extern double complex cpow (double complex, double complex);
335 #if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
337 extern long double complex cpowl (long double complex, long double complex);
341 #if !defined(HAVE_CSQRTF)
342 #define HAVE_CSQRTF 1
343 extern float complex csqrtf (float complex);
346 #if !defined(HAVE_CSQRT)
348 extern double complex csqrt (double complex);
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);
357 #if !defined(HAVE_CSINHF)
358 #define HAVE_CSINHF 1
359 extern float complex csinhf (float complex);
362 #if !defined(HAVE_CSINH)
364 extern double complex csinh (double complex);
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);
373 #if !defined(HAVE_CCOSHF)
374 #define HAVE_CCOSHF 1
375 extern float complex ccoshf (float complex);
378 #if !defined(HAVE_CCOSH)
380 extern double complex ccosh (double complex);
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);
389 #if !defined(HAVE_CTANHF)
390 #define HAVE_CTANHF 1
391 extern float complex ctanhf (float complex);
394 #if !defined(HAVE_CTANH)
396 extern double complex ctanh (double complex);
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);
405 #if !defined(HAVE_CSINF)
407 extern float complex csinf (float complex);
410 #if !defined(HAVE_CSIN)
412 extern double complex csin (double complex);
415 #if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
417 extern long double complex csinl (long double complex);
421 #if !defined(HAVE_CCOSF)
423 extern float complex ccosf (float complex);
426 #if !defined(HAVE_CCOS)
428 extern double complex ccos (double complex);
431 #if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
433 extern long double complex ccosl (long double complex);
437 #if !defined(HAVE_CTANF)
439 extern float complex ctanf (float complex);
442 #if !defined(HAVE_CTAN)
444 extern double complex ctan (double complex);
447 #if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
449 extern long double complex ctanl (long double complex);
453 #endif /* C99_PROTOS_H */