On Tue, Jun 21, 2011 at 12:29:01AM +0200, Janus Weil wrote:
> However, I would also like to apply it to the 4.6 branch (which was
> frozen a few hours ago). Is there any chance to get approval by the
> RM's for this?
Yeah, it looks small and safe enough for 4.6.1 to me.
> 2011-06-21 Janus Weil <ja...@gcc.gnu.org>
>
> PR fortran/49112
> * class.c (gfc_find_derived_vtab): Make vtab and default initialization
> symbols SAVE_IMPLICIT.
>
> 2011-06-21 Janus Weil <ja...@gcc.gnu.org>
>
> PR fortran/49112
> * gfortran.dg/class_44.f03: New.
> Index: gcc/fortran/class.c
> ===================================================================
> --- gcc/fortran/class.c (revision 175227)
> +++ gcc/fortran/class.c (working copy)
> @@ -428,7 +428,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
> &gfc_current_locus) == FAILURE)
> goto cleanup;
> vtab->attr.target = 1;
> - vtab->attr.save = SAVE_EXPLICIT;
> + vtab->attr.save = SAVE_IMPLICIT;
> vtab->attr.vtab = 1;
> vtab->attr.access = ACCESS_PUBLIC;
> gfc_set_sym_referenced (vtab);
> @@ -516,7 +516,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
> sprintf (name, "__def_init_%s", tname);
> gfc_get_symbol (name, ns, &def_init);
> def_init->attr.target = 1;
> - def_init->attr.save = SAVE_EXPLICIT;
> + def_init->attr.save = SAVE_IMPLICIT;
> def_init->attr.access = ACCESS_PUBLIC;
> def_init->attr.flavor = FL_VARIABLE;
> gfc_set_sym_referenced (def_init);
Jakub
