diff options
| author | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-05 17:53:35 +0000 |
|---|---|---|
| committer | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-05 17:53:35 +0000 |
| commit | c28f06a931f1f0999427a7dfdaa410bcb83a86f3 (patch) | |
| tree | 080d7aadace3024b86dc5f26b56662d0fefefb6b /gcc/fortran/resolve.c | |
| parent | 35cc02b5c80ac6738c1a3362a822e3d7e4d0c587 (diff) | |
| download | ppe42-gcc-c28f06a931f1f0999427a7dfdaa410bcb83a86f3.tar.gz ppe42-gcc-c28f06a931f1f0999427a7dfdaa410bcb83a86f3.zip | |
Revert accidental change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119547 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 8cbcac93dab..e31ecbd5909 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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; } |
