diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-08-29 15:58:16 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-29 15:58:16 +0000 |
| commit | e8525382d986350f38193ca20504631bfadc43ba (patch) | |
| tree | 764a8802dba0b681b9c0d6f4248a2b2513c2b2fc /gcc/fortran/gfortran.h | |
| parent | 766ff1b11748f66da98c901b9498a90e72698c05 (diff) | |
| download | gcc-e8525382d986350f38193ca20504631bfadc43ba.zip gcc-e8525382d986350f38193ca20504631bfadc43ba.tar.gz gcc-e8525382d986350f38193ca20504631bfadc43ba.tar.bz2 | |
check.c (gfc_check_besn, [...]): New functions.
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
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index a633603..89c182d 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -286,6 +286,12 @@ enum gfc_generic_isym_id GFC_ISYM_ASSOCIATED, GFC_ISYM_ATAN, GFC_ISYM_ATAN2, + GFC_ISYM_J0, + GFC_ISYM_J1, + GFC_ISYM_JN, + GFC_ISYM_Y0, + GFC_ISYM_Y1, + GFC_ISYM_YN, GFC_ISYM_BTEST, GFC_ISYM_CEILING, GFC_ISYM_CHAR, @@ -301,6 +307,8 @@ enum gfc_generic_isym_id GFC_ISYM_DOT_PRODUCT, GFC_ISYM_DPROD, GFC_ISYM_EOSHIFT, + GFC_ISYM_ERF, + GFC_ISYM_ERFC, GFC_ISYM_ETIME, GFC_ISYM_EXP, GFC_ISYM_EXPONENT, @@ -1518,6 +1526,7 @@ extern int gfc_default_double_kind; extern int gfc_default_character_kind; extern int gfc_default_logical_kind; extern int gfc_default_complex_kind; +extern int gfc_c_int_kind; /* symbol.c */ void gfc_clear_new_implicit (void); |