[Bug fortran/51754] [OOP] ICE on valid with class arrays

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51754

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-01-21 
19:22:27 UTC ---
(In reply to comment #1)
One additionally needs the following - otherwise, e.g., PR 41600 comment 1
fails at resolve time claiming that the type is not the same.

--- a/gcc/fortran/class.c
+++ b/gcc/fortran/class.c
@@ -385,2 +385,3 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute
*attr,
       fclass->attr.abstract = ts->u.derived->attr.abstract;
+      fclass->attr.class_ok = 1;
       if (ts->u.derived->f2k_derived)