[PATCH] Fix ICE on functions with no explicit nor implicit type (PR fortran/21729)

[Tobias Schlüter]

Jakub Jelinek wrote:
> On Sat, May 28, 2005 at 03:49:09PM +0200, Tobias Schl?ter wrote:
>>>@@ -4835,6 +4842,39 @@ gfc_resolve (gfc_namespace * ns)
>>> 
>>>   gfc_traverse_ns (ns, resolve_symbol);
>>> 
>>>+  if (ns->proc_name && ns->proc_name->attr.function)
>>>+    {
>>>+      gfc_entry_list *el;
>>>+      gfc_symbol *sym;
>>>+
>>>+      if (ns->entries)
>>>+	sym = ns->entries->sym;
>>>+      else
>>>+	sym = ns->proc_name;
>>
>>Why this if?  Did you run into a bug when you tried to resolve the function
>>symbol itself?
> 
> 
> I just wanted to print Function for functions and ENTRY for their entries.
> If it just printed Function always it could be slightly simpler.

Hm, looks like I'm misreading the code.  To me it looks like you're doing
nothing for the function symbol, if the function has alternative entries.

- Tobi