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 <pa...@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 <pa...@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