re PR fortran/51995 ([OOP] Polymorphic class fails at runtime)

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

        PR fortran/51995
        * class.c (gfc_build_class_symbol): Fix invalid freeing
        issue with fclass->f2k_derived.

From-SVN: r183541

gcc/fortran/ChangeLog

 2012-01-25  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/51995
+	* class.c (gfc_build_class_symbol): Fix invalid freeing
+	issue with fclass->f2k_derived.
+
+2012-01-25  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/51995
 	* class.c (gfc_build_class_symbol): Ensure that
 	fclass->f2k_derived is set.
 

gcc/fortran/class.c

@@ -422,7 +422,7 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute *attr,
       c->attr.pointer = 1;
     }
   else if (!fclass->f2k_derived)
-    fclass->f2k_derived = fclass->components->ts.u.derived->f2k_derived;
+    fclass->f2k_derived = gfc_get_namespace (NULL, 0);
 
   /* Since the extension field is 8 bit wide, we can only have
      up to 255 extension levels.  */