Commit d5733d10 by Aldy Hernandez

Revert accidental change.

From-SVN: r119547
parent 07beea0d
......@@ -5741,19 +5741,6 @@ resolve_fl_derived (gfc_symbol *sym)
sym->ns->derived_types = dt_list;
}
/* Add derived type to the derived type list. */
for (dt_list = sym->ns->derived_types; dt_list; dt_list = dt_list->next)
if (sym == dt_list->derived)
break;
if (dt_list == NULL)
{
dt_list = gfc_get_dt_list ();
dt_list->next = sym->ns->derived_types;
dt_list->derived = sym;
sym->ns->derived_types = dt_list;
}
return SUCCESS;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment