Commit f372a0c0 by Mikael Morin

resolve.c (add_dt_to_dt_list): Remove unneeded if.

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

	* resolve.c (add_dt_to_dt_list): Remove unneeded if.

From-SVN: r165035
parent 99b41d52
2010-10-06 Mikael Morin <mikael@gcc.gnu.org> 2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* resolve.c (add_dt_to_dt_list): Remove unneeded if.
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* resolve.c (check_typebound_baseobject): Free local expr before * resolve.c (check_typebound_baseobject): Free local expr before
returning. returning.
......
...@@ -11088,15 +11088,12 @@ add_dt_to_dt_list (gfc_symbol *derived) ...@@ -11088,15 +11088,12 @@ add_dt_to_dt_list (gfc_symbol *derived)
for (dt_list = gfc_derived_types; dt_list; dt_list = dt_list->next) for (dt_list = gfc_derived_types; dt_list; dt_list = dt_list->next)
if (derived == dt_list->derived) if (derived == dt_list->derived)
break; return;
if (dt_list == NULL)
{
dt_list = gfc_get_dt_list (); dt_list = gfc_get_dt_list ();
dt_list->next = gfc_derived_types; dt_list->next = gfc_derived_types;
dt_list->derived = derived; dt_list->derived = derived;
gfc_derived_types = dt_list; gfc_derived_types = dt_list;
}
} }
......
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