[Patch, fortran] PR33499 - Rejects valid module with a contained function with an ENTRY

[Paul Richard Thomas]

:ADDPATCH fortran:

This patch is self-explanatory.  The particular case of an ENTRY that
was also a MODULE PROCEDURE, which had not yet had its characteristics
declared, was triply blighted:
(i) It was excluded by the if statement
(ii) The residual, hidden symbol was untyped and so caused an error
(iii) The symbol for the ENTRY was put in the wrong namespace.
The testcase is the reporter's, except that I have changed the
components to integer, so that the equality is always good and
embellished the type(cx) with a real part.

Bootstraps and regtests on x86_ia64 - OK for trunk?

PR31213 will have to wait until tomorrow.

Cheers

Paul

2007-11-24  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/33499
	* decl.c (get_proc_name): If ENTRY statement occurs before type
	specification, set the symbol untyped and ensure that it is in
	the procedure namespace.

2007-11-24  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/33499
	* gfortran.dg/entry_16.f90: New test.

-- 
The knack of flying is learning how to throw yourself at the ground and miss.
       --Hitchhikers Guide to the Galaxy
-------------- next part --------------
A non-text attachment was scrubbed...
Name: submit.diff
Type: text/x-patch
Size: 3723 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071124/4121f846/attachment.bin>