[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);