[Patch, fortran] [9/22] Various minor fixups
Mikael Morin
mikael.morin@sfr.fr
Tue Oct 5 10:14:00 GMT 2010
2010-10-04 Mikael Morin <mikael@gcc.gnu.org>
* resolve.c (add_dt_to_dt_list): Remove unneeded if.
-------------- next part --------------
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;
}
More information about the Fortran
mailing list