------- Comment #8 from janus at gcc dot gnu dot org 2009-12-28 14:29 -------
Ok, here is a new patch, which fixes all problems reported here so far:
Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c (revision 155486)
+++ gcc/fortran/symbol.c (working copy)
@@ -4748,6 +4748,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
vtab->attr.target = 1;
vtab->attr.save = SAVE_EXPLICIT;
vtab->attr.vtab = 1;
+ vtab->attr.access = ACCESS_PRIVATE;
vtab->refs++;
gfc_set_sym_referenced (vtab);
sprintf (name, "vtype$%s", derived->name);
@@ -4764,6 +4765,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
return NULL;
vtype->refs++;
gfc_set_sym_referenced (vtype);
+ vtype->attr.access = ACCESS_PRIVATE;
/* Add component '$hash'. */
if (gfc_add_component (vtype, "$hash", &c) == FAILURE)
Harald, can you check if this version gives you any more trouble? In the
meantime I will test it for regressions.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42353
