2010-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/45889
* resolve.c (resolve_transfer): Use expression inside parenthesis to
find acutal component to be transgferred.
From-SVN: r165068
+2010-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/45889
+ * resolve.c (resolve_transfer): Use expression inside parenthesis to
+ find acutal component to be transgferred.
+
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* trans-stmt.c (gfc_trans_allocate): free lhs expr.
ts = &sym->ts;
/* Go to actual component transferred. */
- for (ref = code->expr1->ref; ref; ref = ref->next)
+ for (ref = exp->ref; ref; ref = ref->next)
if (ref->type == REF_COMPONENT)
ts = &ref->u.c.component->ts;