r260415 - in /trunk/gcc: fortran/resolve.c test...

[pault@gcc.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