[Bug fortran/33040] ICE in gfc_trans_structure_assign

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-08-09 22:23 -------
Some more debugging - I modified gfc_trans_structure_assign to:
----------------------------------
  cm = expr->ts.derived->components; i = 1;
  for (c = expr->value.constructor; c; c = c->next, cm = cm->next)
    {
printf("DEBUG: gfc_trans_structure_assign, loop %i; cm->name = %s\n",i++,
cm->name);
      if (!c->expr)
        continue;
      field = cm->backend_decl;
if (field == NULL) {
    gfc_error ("field is zero at %L", &c->expr->where); continue;
}
----------------------------------

DEBUG: gfc_trans_structure_assign, loop 1; cm->name = __c_ptr_c_address
fgsl.f90:2.33:
  use, intrinsic :: iso_c_binding
                                1
Error: field is zero at (1)


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |crickett at lanl dot gov


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