This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, Fortran, OOP] PR 49112: [4.6/4.7 Regression] Missing type-bound procedure, "duplicate save" warnings and internal compiler error
- From: Jakub Jelinek <jakub at redhat dot com>
- To: Janus Weil <janus at gcc dot gnu dot org>
- Cc: gfortran <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 21 Jun 2011 09:41:57 +0200
- Subject: Re: [Patch, Fortran, OOP] PR 49112: [4.6/4.7 Regression] Missing type-bound procedure, "duplicate save" warnings and internal compiler error
- References: <BANLkTimik4atfh8Vx5scAfJedWCr1zSCHg@mail.gmail.com>
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
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 <janus@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 <janus@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