From fdc54e885432c29ce4bdb53b1bd0802e24064e2a Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Thu, 6 Mar 2008 12:40:28 +0000 Subject: re PR fortran/33197 (Fortran 2008: math functions) PR fortran/33197 * intrinsic.c (add_functions): Add simplification routines for ERF, DERF, ERFC and DERFC. * decl.c (gfc_match_suffix, gfc_match_subroutine): Change GNU extensions into Fortran 2008 features. * intrinsic.h (gfc_simplify_erf, gfc_simplify_erfc): New prototypes. * simplify.c (gfc_simplify_erf, gfc_simplify_erfc): New functions. From-SVN: r132970 --- gcc/fortran/decl.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc/fortran/decl.c') diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 892c80a..d6a5633 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -3999,9 +3999,9 @@ gfc_match_suffix (gfc_symbol *sym, gfc_symbol **result) /* Fortran 2008 draft allows BIND(C) for internal procedures. */ if (gfc_current_state () == COMP_CONTAINS && sym->ns->proc_name->attr.flavor != FL_MODULE - && gfc_notify_std (GFC_STD_GNU, "Extension: BIND(C) attribute at %L " - "may not be specified for an internal procedure", - &gfc_current_locus) + && gfc_notify_std (GFC_STD_F2008, "Fortran 2008: BIND(C) attribute " + "at %L may not be specified for an internal " + "procedure", &gfc_current_locus) == FAILURE) return MATCH_ERROR; @@ -4733,9 +4733,9 @@ gfc_match_subroutine (void) /* The following is allowed in the Fortran 2008 draft. */ if (gfc_current_state () == COMP_CONTAINS && sym->ns->proc_name->attr.flavor != FL_MODULE - && gfc_notify_std (GFC_STD_GNU, "Extension: BIND(C) attribute at " - "%L may not be specified for an internal procedure", - &gfc_current_locus) + && gfc_notify_std (GFC_STD_F2008, "Fortran 2008: BIND(C) attribute " + "at %L may not be specified for an internal " + "procedure", &gfc_current_locus) == FAILURE) return MATCH_ERROR; -- cgit v1.1