This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Patch, Fortran, OOP] PR 49112: [4.6/4.7 Regression] Missing type-bound procedure, "duplicate save" warnings and internal compiler error


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]