diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-05-20 10:08:24 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-05-20 10:08:24 +0000 |
| commit | 9ad8aaf839866994905bf577bcf2a1dee1b8a01a (patch) | |
| tree | c3f2c693b3e0fe51513d73a0fd51bb4be92f9c9a /gcc/fortran/resolve.c | |
| parent | f82f425b56a1ccf1950c6d0992e7c106558acba0 (diff) | |
| download | gcc-9ad8aaf839866994905bf577bcf2a1dee1b8a01a.zip gcc-9ad8aaf839866994905bf577bcf2a1dee1b8a01a.tar.gz gcc-9ad8aaf839866994905bf577bcf2a1dee1b8a01a.tar.bz2 | |
re PR fortran/80657 (Loop in character function declaration)
2018-05-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/80657
* resolve.c (flag_fn_result_spec): Use the 'sym' argument to
test for self refs to the function result in the character len
expression. If a self reference is found, emit an error and
return true.
(resolve_fntype): Use the function symbol in the calls to the
above.
2018-05-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/80657
* gfortran.dg/char_result_18.f90: New test.
From-SVN: r260415
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 913320c..13374dd 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -16217,7 +16217,7 @@ resolve_equivalence (gfc_equiv *eq) static bool flag_fn_result_spec (gfc_expr *expr, - gfc_symbol *sym ATTRIBUTE_UNUSED, + gfc_symbol *sym, int *f ATTRIBUTE_UNUSED) { gfc_namespace *ns; @@ -16230,6 +16230,13 @@ flag_fn_result_spec (gfc_expr *expr, if (!ns->parent) break; + if (sym == s) + { + gfc_error ("Self reference in character length expression " + "for %qs at %L", sym->name, &expr->where); + return true; + } + if (!s->fn_result_spec && s->attr.flavor == FL_PARAMETER) { @@ -16312,7 +16319,7 @@ resolve_fntype (gfc_namespace *ns) } if (sym->ts.type == BT_CHARACTER) - gfc_traverse_expr (sym->ts.u.cl->length, NULL, flag_fn_result_spec, 0); + gfc_traverse_expr (sym->ts.u.cl->length, sym, flag_fn_result_spec, 0); } |