diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-07-11 02:03:07 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-07-11 02:03:07 +0200 |
| commit | 8d3681f9148b7aca65cb6f654d288799fc3efccf (patch) | |
| tree | 4746f04967a90fa0d6480825a4967b65d5b8a994 /gcc/fortran/check.c | |
| parent | 98ac6510fa40424a33df9cd8fabb0cdc18e147e7 (diff) | |
| download | gcc-8d3681f9148b7aca65cb6f654d288799fc3efccf.zip gcc-8d3681f9148b7aca65cb6f654d288799fc3efccf.tar.gz gcc-8d3681f9148b7aca65cb6f654d288799fc3efccf.tar.bz2 | |
re PR fortran/33197 (Fortran 2008: math functions)
2009-07-09 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* check.c (gfc_check_fn_rc2008): New function.
* intrinsic.h (gfc_check_fn_rc2008): New prototype.
* intrinsic.c (add_functions): Add complex tan, cosh, sinh,
and tanh.
2009-07-09 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* gfortran.dg/complex_intrinsic_3.f90: New test.
* gfortran.dg/complex_intrinsic_4.f90: New test.
From-SVN: r149503
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 103c941..8f949d2 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -1212,6 +1212,23 @@ gfc_check_fn_rc (gfc_expr *a) gfc_try +gfc_check_fn_rc2008 (gfc_expr *a) +{ + if (real_or_complex_check (a, 0) == FAILURE) + return FAILURE; + + if (a->ts.type == BT_COMPLEX + && gfc_notify_std (GFC_STD_F2008, "Fortran 2008: COMPLEX argument '%s' " + "argument of '%s' intrinsic at %L", + gfc_current_intrinsic_arg[0], gfc_current_intrinsic, + &a->where) == FAILURE) + return FAILURE; + + return SUCCESS; +} + + +gfc_try gfc_check_fnum (gfc_expr *unit) { if (type_check (unit, 0, BT_INTEGER) == FAILURE) |