[Patch, fortran] PR80657 - [7/8/9 Regression] Loop in character function declaration

[Paul Richard Thomas]

I intend to commit this as 'obvious' once the patches for PR82923 and
82275 are out of the way.

Paul

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.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: submit.diff
Type: text/x-patch
Size: 1917 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20180519/5ba41069/attachment.bin>