[Patch, Fortran] PR40176 comment #5

[Janus Weil]

Hi all,

here is a simple patch for an outstanding issue of PR40176: In my
orginal patch for this PR (which fixed procedure pointers with array
return values), I introduced a possible infinite loop by calling
resolve_symbol recursively for PROCEDURE interfaces, which was
discovered by Dominique shortly after I committed the patch (comment
#5 in the PR). The attached patch prevents this infinite loop, and
adds an error message for PROCEDURE statements where the procedure is
used as its own interface.

Regtested on x86_64-unknown-linux-gnu. Ok for trunk?

Cheers,
Janus


2009-06-12  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40176
	* resolve.c (resolve_symbol): Additional error check, preventing an
	infinite loop.


2009-06-12  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40176
	* gfortran.dg/proc_decl_1.f90: Extended.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr40176_c5.diff
Type: text/x-patch
Size: 1509 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20090612/8a64bb8e/attachment.bin>