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.

From-SVN: r260415