------- Comment #4 from janus at gcc dot gnu dot org 2010-07-09 20:28 ------- Here is a fix for the target problem:
Index: gcc/fortran/primary.c =================================================================== --- gcc/fortran/primary.c (revision 162010) +++ gcc/fortran/primary.c (working copy) @@ -1999,7 +1999,7 @@ gfc_variable_attr (gfc_expr *expr, gfc_typespec *t if (sym->ts.type == BT_CLASS) { dimension = CLASS_DATA (sym)->attr.dimension; - pointer = CLASS_DATA (sym)->attr.pointer; + pointer = CLASS_DATA (sym)->attr.class_pointer; allocatable = CLASS_DATA (sym)->attr.allocatable; } else @@ -2059,7 +2059,7 @@ gfc_variable_attr (gfc_expr *expr, gfc_typespec *t if (comp->ts.type == BT_CLASS) { - pointer = CLASS_DATA (comp)->attr.pointer; + pointer = CLASS_DATA (comp)->attr.class_pointer; allocatable = CLASS_DATA (comp)->attr.allocatable; } else @@ -2109,7 +2109,7 @@ gfc_expr_attr (gfc_expr *e) if (sym->ts.type == BT_CLASS) { attr.dimension = CLASS_DATA (sym)->attr.dimension; - attr.pointer = CLASS_DATA (sym)->attr.pointer; + attr.pointer = CLASS_DATA (sym)->attr.class_pointer; attr.allocatable = CLASS_DATA (sym)->attr.allocatable; } } -- janus at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |janus at gcc dot gnu dot org |dot org | Status|NEW |ASSIGNED Last reconfirmed|2010-07-09 19:02:36 |2010-07-09 20:28:29 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44869