Message ID | 20101005100948.1836.5043@gimli.local |
---|---|
State | New |
Headers | show |
diff --git a/resolve.c b/resolve.c index 5cac71e..77d26c0 100644 --- a/resolve.c +++ b/resolve.c @@ -11083,15 +11083,12 @@ add_dt_to_dt_list (gfc_symbol *derived) for (dt_list = gfc_derived_types; dt_list; dt_list = dt_list->next) if (derived == dt_list->derived) - break; + return; - if (dt_list == NULL) - { - dt_list = gfc_get_dt_list (); - dt_list->next = gfc_derived_types; - dt_list->derived = derived; - gfc_derived_types = dt_list; - } + dt_list = gfc_get_dt_list (); + dt_list->next = gfc_derived_types; + dt_list->derived = derived; + gfc_derived_types = dt_list; }