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

Reply via email to