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/check.c | |
| 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/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index a010dce..6bc9e09 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -525,6 +525,28 @@ gfc_check_atan2 (gfc_expr * y, gfc_expr * x) } +/* BESJN and BESYN functions. */ + +try +gfc_check_besn (gfc_expr * n, gfc_expr * x) +{ + + if (scalar_check (n, 0) == FAILURE) + return FAILURE; + + if (type_check (n, 0, BT_INTEGER) == FAILURE) + return FAILURE; + + if (scalar_check (x, 1) == FAILURE) + return FAILURE; + + if (type_check (x, 1, BT_REAL) == FAILURE) + return FAILURE; + + return SUCCESS; +} + + try gfc_check_btest (gfc_expr * i, gfc_expr * pos) { @@ -728,6 +750,22 @@ gfc_check_eoshift (gfc_expr * array, gfc_expr * shift, gfc_expr * boundary, } +/* This is used for the g77 one-argument Bessel functions, and the + error function. */ + +try +gfc_check_g77_math1 (gfc_expr * x) +{ + + if (scalar_check (x, 0) == FAILURE) + return FAILURE; + + if (type_check (x, 0, BT_REAL) == FAILURE) + return FAILURE; + + return SUCCESS; +} + try gfc_check_huge (gfc_expr * x) |