[Fortran,patch] Fix ICE on invalid code (PR29755)

[Tobias Burnus]

:ADDPATCH fortran:

The problem occurs in decl.c's variable_decl:

   if (current_ts.type == BT_DERIVED
        && gfc_current_ns->proc_name->attr.if_source == IFSRC_IFBODY

If (gfc_current_ns->proc_name == NULL) this produces an ICE.
In my case this happened because the subroutine name in the interface
was the same as the program name.

Ok for trunk and 4.2?

Bootstrapped and regression tested on x86_64-unknown-linux-gnu (openSUSE
10.2beta2).
(Trunk only. Before a 4.2 check in I would also do the bootstrap and
regression test for 4.2.)

Tobias
-------------- next part --------------
A non-text attachment was scrubbed...
Name: PR29755.diff
Type: text/x-patch
Size: 1689 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20061108/985c7862/attachment.bin>