diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-07-05 16:27:38 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-07-05 16:27:38 +0000 |
| commit | 99d2293dbfa03ddc5b0308858412ddded4c832a8 (patch) | |
| tree | 6111bca9d108092f39cc4c754a3e30762f6e3eef /gcc/fortran/resolve.c | |
| parent | d8d9b83b33dd13d81a1e107ce4d1e075a30e6f21 (diff) | |
| download | gcc-99d2293dbfa03ddc5b0308858412ddded4c832a8.zip gcc-99d2293dbfa03ddc5b0308858412ddded4c832a8.tar.gz gcc-99d2293dbfa03ddc5b0308858412ddded4c832a8.tar.bz2 | |
re PR fortran/86408 (bogus error: ABSTRACT INTERFACE must not have an assumed character length result (F2003: C418))
2018-07-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86408
* resolve.c.c (resolve_contained_fntype): Reference to C418 is
in F2008 and not F2003.
(resolve_function): Ditto in error message. Also, exclude
deferred character length results from the error.
2018-07-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86408
* gfortran.dg/deferred_character_20.f90: New test.
From-SVN: r262445
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2f5eeba..9f88c26 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -601,7 +601,7 @@ resolve_contained_fntype (gfc_symbol *sym, gfc_namespace *ns) } } - /* Fortran 2003 Draft Standard, page 535, C418, on type-param-value + /* Fortran 2008 Draft Standard, page 535, C418, on type-param-value type, lists the only ways a character length value of * can be used: dummy arguments of procedures, named constants, function results and in allocate statements if the allocate_object is an assumed length dummy @@ -3117,10 +3117,11 @@ resolve_function (gfc_expr *expr) cannot be an assumed length character (F2003: C418). */ if (sym && sym->attr.abstract && sym->attr.function && sym->result->ts.u.cl - && sym->result->ts.u.cl->length == NULL) + && sym->result->ts.u.cl->length == NULL + && !sym->result->ts.deferred) { gfc_error ("ABSTRACT INTERFACE %qs at %L must not have an assumed " - "character length result (F2003: C418)", sym->name, + "character length result (F2008: C418)", sym->name, &sym->declared_at); return false; } |