[Bug fortran/80657] [7/8/9 Regression] Loop in character function declaration

[pault at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80657

--- Comment #8 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Sun May 20 18:08:04 2018
New Revision: 260424

URL: https://gcc.gnu.org/viewcvs?rev=260424&root=gcc&view=rev
Log:
2018-05-20  Paul Thomas  <pa...@gcc.gnu.org>

        PR fortran/80657
        Backport from trunk
        * 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-20  Paul Thomas  <pa...@gcc.gnu.org>

        PR fortran/80657
        Backport from trunk
        * gfortran.dg/char_result_18.f90: New test.


Added:
    branches/gcc-7-branch/gcc/testsuite/gfortran.dg/char_result_18.f90
Modified:
    branches/gcc-7-branch/gcc/fortran/ChangeLog
    branches/gcc-7-branch/gcc/fortran/resolve.c
    branches/gcc-7-branch/gcc/testsuite/ChangeLog