From 8d3681f9148b7aca65cb6f654d288799fc3efccf Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 11 Jul 2009 02:03:07 +0200 Subject: re PR fortran/33197 (Fortran 2008: math functions) 2009-07-09 Tobias Burnus 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 PR fortran/33197 * gfortran.dg/complex_intrinsic_3.f90: New test. * gfortran.dg/complex_intrinsic_4.f90: New test. From-SVN: r149503 --- gcc/fortran/check.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'gcc/fortran/check.c') 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) -- cgit v1.1