2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+ * primary.c (gfc_match_structure_constructor): Invert the assert logic.
+
+2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+
* primary.c (gfc_free_structure_ctor_component): Also free the
component structure itself.
/* No component should be left, as this should have caused an error in the
loop constructing the component-list (name that does not correspond to any
component in the structure definition). */
- if (comp_head && sym->attr.extension)
+ if (comp_head)
{
+ gcc_assert (sym->attr.extension);
for (comp_iter = comp_head; comp_iter; comp_iter = comp_iter->next)
{
gfc_error ("component '%s' at %L has already been set by a "
}
goto cleanup;
}
- else
- gcc_assert (!comp_head);
e = gfc_get_structure_constructor_expr (BT_DERIVED, 0, &where);
e->ts.u.derived = sym;