Hi Harald,
A rather straightforward issue (mis-)referencing the proper symbol name
in an error message.
OK for master / backport?
OK, but don't forget the test case :-)
Because the if takes up quite a few lines, it is also an option to
write something like
gfc_error ("Symbol %qs at %L cannot have a type",
sym->ns->proc_name->name
? sym->ns->proc_name->name : sym->name , where);
simply to have more code on the screen at one time. If you happen
to be inclined that way, that variant is also OK.
Thanks for the patch!
Regards
Thomas