diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-03-06 12:40:28 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-03-06 12:40:28 +0000 |
| commit | fdc54e885432c29ce4bdb53b1bd0802e24064e2a (patch) | |
| tree | d56bf1a8fd672d2363963eebb687684042a5bcb8 /gcc/fortran/decl.c | |
| parent | fc0f49f351977cd44ac55551e4cb0fc92477eef7 (diff) | |
| download | gcc-fdc54e885432c29ce4bdb53b1bd0802e24064e2a.zip gcc-fdc54e885432c29ce4bdb53b1bd0802e24064e2a.tar.gz gcc-fdc54e885432c29ce4bdb53b1bd0802e24064e2a.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 12 |
1 files changed, 6 insertions, 6 deletions
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; |