[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 #6 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Sun May 20 10:08:24 2018
New Revision: 260415

URL: https://gcc.gnu.org/viewcvs?rev=260415&root=gcc&view=rev
Log:
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.


Added:
    trunk/gcc/testsuite/gfortran.dg/char_result_18.f90
Modified:
    trunk/gcc/fortran/resolve.c