------- Comment #3 from fxcoudert at gcc dot gnu dot org 2006-05-21 20:49
-------
Proposed patch (wording from the g95 error message). With that patch, compiling
the testcase is a bit noisy (additional errors after the first error message),
I'll try to find a cleaner solution.
Index: interface.c
===================================================================
--- interface.c (revision 113849)
+++ interface.c (working copy)
@@ -217,6 +217,13 @@
&& gfc_add_generic (&sym->attr, sym->name, NULL) == FAILURE)
return MATCH_ERROR;
+ if (sym->attr.dummy)
+ {
+ gfc_error ("Dummy procedure '%s' at %C cannot have a "
+ "generic interface", sym->name);
+ return MATCH_ERROR;
+ }
+
current_interface.sym = gfc_new_block = sym;
break;
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |fxcoudert at gcc dot gnu dot
| |org
AssignedTo|unassigned at gcc dot gnu |fxcoudert at gcc dot gnu dot
|dot org |org
Status|NEW |ASSIGNED
Keywords| |patch
Last reconfirmed|2005-12-31 19:59:59 |2006-05-21 20:49:21
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20892
