diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-05-16 17:33:23 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-05-16 17:33:23 +0000 |
| commit | 9b33a6a1db9e3e21eac8df9909d21d89b57fb507 (patch) | |
| tree | 4fec6f5d2ae7971100be9fe6ac743f7eb89a125b /gcc/fortran/intrinsic.h | |
| parent | b0c068160f502c9d37ec02c8a514546937544eb8 (diff) | |
| download | gcc-9b33a6a1db9e3e21eac8df9909d21d89b57fb507.zip gcc-9b33a6a1db9e3e21eac8df9909d21d89b57fb507.tar.gz gcc-9b33a6a1db9e3e21eac8df9909d21d89b57fb507.tar.bz2 | |
re PR fortran/33197 (Fortran 2008: math functions)
PR fortran/33197
* intrinsic.c (add_functions): Use ERFC_SCALED simplification.
* intrinsic.h (gfc_simplify_erfc_scaled): New prototype.
* simplify.c (fullprec_erfc_scaled, asympt_erfc_scaled,
gfc_simplify_erfc_scaled): New functions.
* gfortran.dg/erf_2.F90: New test.
* gfortran.dg/erfc_scaled_2.f90: New test.
From-SVN: r147621
Diffstat (limited to 'gcc/fortran/intrinsic.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index 83c5207..7e8bc73 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -232,6 +232,7 @@ gfc_expr *gfc_simplify_dprod (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_epsilon (gfc_expr *); gfc_expr *gfc_simplify_erf (gfc_expr *); gfc_expr *gfc_simplify_erfc (gfc_expr *); +gfc_expr *gfc_simplify_erfc_scaled (gfc_expr *); gfc_expr *gfc_simplify_exp (gfc_expr *); gfc_expr *gfc_simplify_exponent (gfc_expr *); gfc_expr *gfc_simplify_float (gfc_expr *); |