re PR fortran/52029 ([OOP] _copy should be PURE)

2012-01-31  Tobias Burnus  <burnus@net-b.de>

        PR fortran/52029
        * class.c (gfc_find_derived_vtab): Mark _copy function as pure.

2012-01-31  Tobias Burnus  <burnus@net-b.de>

        PR fortran/52029
        * gfortran.dg/class_49.f90: New.

From-SVN: r183770

gcc/fortran/ChangeLog

 2012-01-31  Tobias Burnus  <burnus@net-b.de>
 
+	PR fortran/52029
+	* class.c (gfc_find_derived_vtab): Mark _copy function as pure.
+
+2012-01-31  Tobias Burnus  <burnus@net-b.de>
+
 	PR fortran/52013
 	* class.c (get_unique_hashed_string): Adapt trim length.
 	(gfc_build_class_symbol) Encode also corank in the container name.

gcc/fortran/class.c

@@ -717,6 +717,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
 		  sub_ns->proc_name = copy;
 		  copy->attr.flavor = FL_PROCEDURE;
 		  copy->attr.subroutine = 1;
+		  copy->attr.pure = 1;
 		  copy->attr.if_source = IFSRC_DECL;
 		  /* This is elemental so that arrays are automatically
 		     treated correctly by the scalarizer.  */

gcc/testsuite/ChangeLog

 2012-01-31  Tobias Burnus  <burnus@net-b.de>
 
+	PR fortran/52029
+	* gfortran.dg/class_49.f90: New.
+
+2012-01-31  Tobias Burnus  <burnus@net-b.de>
+
 	PR fortran/52013
 	* gfortran.dg/elemental_args_check_6.f90: New.
 

gcc/testsuite/gfortran.dg/class_49.f90

+! { dg-do compile }
+!
+! PR fortran/52029
+!
+
+elemental subroutine foo()
+  type t
+  end type t
+  class(t), allocatable :: x
+  if (allocated(x)) i = 5
+end