[Bug fortran/55984] [4.8 Regression] ICE: gfc_trans_code(): Bad statement code

[janus at gcc dot gnu.org]

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

--- Comment #4 from janus at gcc dot gnu.org 2013-01-15 22:57:19 UTC ---
Patch:

Index: gcc/fortran/parse.c
===================================================================
--- gcc/fortran/parse.c    (revision 195125)
+++ gcc/fortran/parse.c    (working copy)
@@ -3399,6 +3399,8 @@ parse_associate (void)
      for parsing component references on the associate-name
      in case of association to a derived-type.  */
       sym->ts = a->target->ts;
+      if (sym->ts.type == BT_CLASS)
+    sym->attr.class_ok = gfc_expr_attr (a->target).class_ok;
     }

   accept_statement (ST_ASSOCIATE);