diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2019-10-27 15:00:54 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2019-10-27 15:00:54 +0000 |
| commit | a9b64a615428ba6dad0dfe9b2d513a2d41db02dc (patch) | |
| tree | f529983b606df8516f47036a249a070e14e67124 /gcc/fortran/resolve.c | |
| parent | 051d8a5faa3b37b0dda84c8382174ee70d5b7992 (diff) | |
| download | gcc-a9b64a615428ba6dad0dfe9b2d513a2d41db02dc.zip gcc-a9b64a615428ba6dad0dfe9b2d513a2d41db02dc.tar.gz gcc-a9b64a615428ba6dad0dfe9b2d513a2d41db02dc.tar.bz2 | |
re PR fortran/86248 (LEN_TRIM in specification expression causes link failure)
2019-10-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86248
* resolve.c (flag_fn_result_spec): Correct a typo before the
function declaration.
* trans-decl.c (gfc_sym_identifier): Boost the length of 'name'
to allow for all variants. Simplify the code by using a pointer
to the symbol's proc_name and taking the return out of each of
the conditional branches. Allow symbols with fn_result_spec set
that do not come from a procedure namespace and have a module
name to go through the non-fn_result_spec branch.
2019-10-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86248
* gfortran.dg/char_result_19.f90 : New test.
* gfortran.dg/char_result_mod_19.f90 : Module for the new test.
From-SVN: r277487
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5deeb4f..218c2ed 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -16777,8 +16777,8 @@ resolve_equivalence (gfc_equiv *eq) } -/* Function called by resolve_fntype to flag other symbol used in the - length type parameter specification of function resuls. */ +/* Function called by resolve_fntype to flag other symbols used in the + length type parameter specification of function results. */ static bool flag_fn_result_spec (gfc_expr *expr, |