diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-07-26 19:25:56 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-07-26 19:25:56 +0200 |
| commit | ddf6799888c579fd30789d02f6eda89d54b63340 (patch) | |
| tree | b259f058789db8ed3708b7eb713e618b6c81dc13 /gcc/fortran/check.c | |
| parent | f6c7fcc0d57109c145195175cad0c7d433b1f39a (diff) | |
| download | gcc-ddf6799888c579fd30789d02f6eda89d54b63340.zip gcc-ddf6799888c579fd30789d02f6eda89d54b63340.tar.gz gcc-ddf6799888c579fd30789d02f6eda89d54b63340.tar.bz2 | |
re PR fortran/33197 (Fortran 2008: math functions)
2009-07-26 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* intrinsic.c (make_generic): Remove assert as "atan" can be
both ISYM_ATAN and ISYM_ATAN2.
(add_functions): Add two-argument variant of ATAN.
* intrinsic.h (gfc_check_atan_2): Add check for it.
* intrinsic.texi (ATAN2): Correct and enhance description.
(ATAN): Describe two-argument variant of ATAN.
2009-07-26 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* gfortran.dg/atan2_1.f90: New test
* gfortran.dg/atan2_2.f90: New test
From-SVN: r150100
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index e19f812..779af20 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -676,6 +676,19 @@ null_arg: gfc_try +gfc_check_atan_2 (gfc_expr *y, gfc_expr *x) +{ + /* gfc_notify_std would be a wast of time as the return value + is seemingly used only for the generic resolution. The error + will be: Too many arguments. */ + if ((gfc_option.allow_std & GFC_STD_F2008) == 0) + return FAILURE; + + return gfc_check_atan2 (y, x); +} + + +gfc_try gfc_check_atan2 (gfc_expr *y, gfc_expr *x) { if (type_check (y, 0, BT_REAL) == FAILURE) |