diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-05-06 19:06:54 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-05-06 19:06:54 +0200 |
| commit | 3c3f4265021e8940d6a57234b7f70b0dbbc05b3a (patch) | |
| tree | 0de6d06ee3109c2ff08c4951bcfc68a150f4cb9c /gcc/fortran/intrinsic.h | |
| parent | 4317a2fa5139e7c4398e15213d73ad66e0f98c32 (diff) | |
| download | gcc-3c3f4265021e8940d6a57234b7f70b0dbbc05b3a.zip gcc-3c3f4265021e8940d6a57234b7f70b0dbbc05b3a.tar.gz gcc-3c3f4265021e8940d6a57234b7f70b0dbbc05b3a.tar.bz2 | |
re PR fortran/36117 (Use MPFR for bessel function (optimization, rejects valid F2008))
2008-05-06 Tobias Burnus <burnus@net-b.de>
PR fortran/36117
* intrinsic.c (add_functions): Call gfc_simplify_bessel_*.
* intrinsic.h: Add prototypes for gfc_simplify_bessel_*.
* simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): New.
2008-05-06 Tobias Burnus <burnus@net-b.de>
PR fortran/36117
* gfortran.dg/bessel_2.f90: New.
From-SVN: r134988
Diffstat (limited to 'gcc/fortran/intrinsic.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index 91645fb..ac996b6 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -208,6 +208,12 @@ gfc_expr *gfc_simplify_asinh (gfc_expr *); gfc_expr *gfc_simplify_atan (gfc_expr *); gfc_expr *gfc_simplify_atanh (gfc_expr *); gfc_expr *gfc_simplify_atan2 (gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_bessel_j0 (gfc_expr *); +gfc_expr *gfc_simplify_bessel_j1 (gfc_expr *); +gfc_expr *gfc_simplify_bessel_jn (gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_bessel_y0 (gfc_expr *); +gfc_expr *gfc_simplify_bessel_y1 (gfc_expr *); +gfc_expr *gfc_simplify_bessel_yn (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_bit_size (gfc_expr *); gfc_expr *gfc_simplify_btest (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_ceiling (gfc_expr *, gfc_expr *); |