e8525382d9
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* check.c (gfc_check_besn, gfc_check_g77_math1): New functions.
* f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
(build_builtin_fntypes): New function.
(gfc_init_builtin_functions): Use it.
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N}
and GFC_ISYM_ERF{,C}.
(gfc_c_int_kind): Declare.
* intrinsic.c (add_functions): Add [d]bes* and [d]erf*.
* intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn,
gfc_resolve_g77_math1): Add prototypes.
* resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions.
* mathbuiltins.def: Add comment. Change third argument. Use
DEFINE_MATH_BUILTIN_C. Add bessel and error functions.
* trans-intrinsic.c (BUILT_IN_FUNCTION): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
* trans-types.c (gfc_c_int_kind): Declare.
(gfc_init_kinds): Set it.
testsuite/
* gfortran.dg/g77/README: Update.
* gfortran.dg/g77/erfc.f: Copy from g77.f-torture.
* gfortran.dg/g77/intrinsic-unix-bessel.f: Ditto.
* gfortran.dg/g77/intrinsic-unix-erf.f: Ditto.
libgfortran/
* intrinsics/bessel.c: New file.
* intrinsics/erf.c: New file.
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
* configure.ac: Test for C99 Bessel and Error functions.
* Makefile.in: Regenerate.
* config.h.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86727
236 lines
4.7 KiB
C
236 lines
4.7 KiB
C
/* config.h.in. Generated from configure.ac by autoheader. */
|
|
|
|
/* Does gettimeofday take a single argument */
|
|
#undef GETTIMEOFDAY_ONE_ARGUMENT
|
|
|
|
/* libm includes acosf */
|
|
#undef HAVE_ACOSF
|
|
|
|
/* libm includes asinf */
|
|
#undef HAVE_ASINF
|
|
|
|
/* libm includes atan2f */
|
|
#undef HAVE_ATAN2F
|
|
|
|
/* libm includes atanf */
|
|
#undef HAVE_ATANF
|
|
|
|
/* libm includes ceilf */
|
|
#undef HAVE_CEILF
|
|
|
|
/* complex.h exists */
|
|
#undef HAVE_COMPLEX_H
|
|
|
|
/* libm includes copysignf */
|
|
#undef HAVE_COPYSIGNF
|
|
|
|
/* libm includes cosf */
|
|
#undef HAVE_COSF
|
|
|
|
/* libm includes coshf */
|
|
#undef HAVE_COSHF
|
|
|
|
/* libm includes erf */
|
|
#undef HAVE_ERF
|
|
|
|
/* libm includes erfc */
|
|
#undef HAVE_ERFC
|
|
|
|
/* libm includes erfcf */
|
|
#undef HAVE_ERFCF
|
|
|
|
/* libm includes erff */
|
|
#undef HAVE_ERFF
|
|
|
|
/* libm includes expf */
|
|
#undef HAVE_EXPF
|
|
|
|
/* libm includes floorf */
|
|
#undef HAVE_FLOORF
|
|
|
|
/* libm includes frexpf */
|
|
#undef HAVE_FREXPF
|
|
|
|
/* libc includes getgid */
|
|
#undef HAVE_GETGID
|
|
|
|
/* Define to 1 if you have the `getpagesize' function. */
|
|
#undef HAVE_GETPAGESIZE
|
|
|
|
/* libc includes getpid */
|
|
#undef HAVE_GETPID
|
|
|
|
/* Define to 1 if you have the `getrusage' function. */
|
|
#undef HAVE_GETRUSAGE
|
|
|
|
/* Define to 1 if you have the `gettimeofday' function. */
|
|
#undef HAVE_GETTIMEOFDAY
|
|
|
|
/* libc includes getuid */
|
|
#undef HAVE_GETUID
|
|
|
|
/* libm includes hypotf */
|
|
#undef HAVE_HYPOTF
|
|
|
|
/* Define to 1 if you have the <inttypes.h> header file. */
|
|
#undef HAVE_INTTYPES_H
|
|
|
|
/* libm includes j0 */
|
|
#undef HAVE_J0
|
|
|
|
/* libm includes j0f */
|
|
#undef HAVE_J0F
|
|
|
|
/* libm includes j1 */
|
|
#undef HAVE_J1
|
|
|
|
/* libm includes j1f */
|
|
#undef HAVE_J1F
|
|
|
|
/* libm includes jn */
|
|
#undef HAVE_JN
|
|
|
|
/* libm includes jnf */
|
|
#undef HAVE_JNF
|
|
|
|
/* libm includes log10f */
|
|
#undef HAVE_LOG10F
|
|
|
|
/* libm includes logf */
|
|
#undef HAVE_LOGF
|
|
|
|
/* Define to 1 if you have the <math.h> header file. */
|
|
#undef HAVE_MATH_H
|
|
|
|
/* Define to 1 if you have the <memory.h> header file. */
|
|
#undef HAVE_MEMORY_H
|
|
|
|
/* Define to 1 if you have a working `mmap' system call. */
|
|
#undef HAVE_MMAP
|
|
|
|
/* libm includes nextafter */
|
|
#undef HAVE_NEXTAFTER
|
|
|
|
/* libm includes nextafterf */
|
|
#undef HAVE_NEXTAFTERF
|
|
|
|
/* libm includes round */
|
|
#undef HAVE_ROUND
|
|
|
|
/* libm includes roundf */
|
|
#undef HAVE_ROUNDF
|
|
|
|
/* libm includes scalbnf */
|
|
#undef HAVE_SCALBNF
|
|
|
|
/* libm includes sinf */
|
|
#undef HAVE_SINF
|
|
|
|
/* libm includes sinhf */
|
|
#undef HAVE_SINHF
|
|
|
|
/* libm includes sqrtf */
|
|
#undef HAVE_SQRTF
|
|
|
|
/* Define to 1 if you have the <stddef.h> header file. */
|
|
#undef HAVE_STDDEF_H
|
|
|
|
/* Define to 1 if you have the <stdint.h> header file. */
|
|
#undef HAVE_STDINT_H
|
|
|
|
/* Define to 1 if you have the <stdio.h> header file. */
|
|
#undef HAVE_STDIO_H
|
|
|
|
/* Define to 1 if you have the <stdlib.h> header file. */
|
|
#undef HAVE_STDLIB_H
|
|
|
|
/* Define to 1 if you have the <strings.h> header file. */
|
|
#undef HAVE_STRINGS_H
|
|
|
|
/* Define to 1 if you have the <string.h> header file. */
|
|
#undef HAVE_STRING_H
|
|
|
|
/* Define to 1 if you have the <sys/params.h> header file. */
|
|
#undef HAVE_SYS_PARAMS_H
|
|
|
|
/* Define to 1 if you have the <sys/resource.h> header file. */
|
|
#undef HAVE_SYS_RESOURCE_H
|
|
|
|
/* Define to 1 if you have the <sys/stat.h> header file. */
|
|
#undef HAVE_SYS_STAT_H
|
|
|
|
/* Define to 1 if you have the <sys/times.h> header file. */
|
|
#undef HAVE_SYS_TIMES_H
|
|
|
|
/* Define to 1 if you have the <sys/time.h> header file. */
|
|
#undef HAVE_SYS_TIME_H
|
|
|
|
/* Define to 1 if you have the <sys/types.h> header file. */
|
|
#undef HAVE_SYS_TYPES_H
|
|
|
|
/* libm includes tanf */
|
|
#undef HAVE_TANF
|
|
|
|
/* libm includes tanhf */
|
|
#undef HAVE_TANHF
|
|
|
|
/* Define to 1 if you have the `times' function. */
|
|
#undef HAVE_TIMES
|
|
|
|
/* Do we have struct timezone */
|
|
#undef HAVE_TIMEZONE
|
|
|
|
/* Define to 1 if you have the <time.h> header file. */
|
|
#undef HAVE_TIME_H
|
|
|
|
/* Define to 1 if you have the <unistd.h> header file. */
|
|
#undef HAVE_UNISTD_H
|
|
|
|
/* libm includes y0 */
|
|
#undef HAVE_Y0
|
|
|
|
/* libm includes y0f */
|
|
#undef HAVE_Y0F
|
|
|
|
/* libm includes y1 */
|
|
#undef HAVE_Y1
|
|
|
|
/* libm includes y1f */
|
|
#undef HAVE_Y1F
|
|
|
|
/* libm includes yn */
|
|
#undef HAVE_YN
|
|
|
|
/* libm includes ynf */
|
|
#undef HAVE_YNF
|
|
|
|
/* Define to the address where bug reports for this package should be sent. */
|
|
#undef PACKAGE_BUGREPORT
|
|
|
|
/* Define to the full name of this package. */
|
|
#undef PACKAGE_NAME
|
|
|
|
/* Define to the full name and version of this package. */
|
|
#undef PACKAGE_STRING
|
|
|
|
/* Define to the one symbol short name of this package. */
|
|
#undef PACKAGE_TARNAME
|
|
|
|
/* Define to the version of this package. */
|
|
#undef PACKAGE_VERSION
|
|
|
|
/* Define to 1 if you have the ANSI C header files. */
|
|
#undef STDC_HEADERS
|
|
|
|
/* Define to 1 if you can safely include both <sys/time.h> and <time.h>. */
|
|
#undef TIME_WITH_SYS_TIME
|
|
|
|
/* Number of bits in a file offset, on hosts where this is settable. */
|
|
#undef _FILE_OFFSET_BITS
|
|
|
|
/* Define for large files, on AIX-style hosts. */
|
|
#undef _LARGE_FILES
|
|
|
|
/* Define to `long' if <sys/types.h> does not define. */
|
|
#undef off_t
|