------- 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
