Message ID | d8d394bc-981f-8934-09f9-259016d9344c@suse.cz |
---|---|
State | New |
Headers | show |
Series | Remove dead Fortran function. | expand |
On 11/9/2021 6:59 AM, Martin Liška wrote: > Hello. > > The function was introduced in 2009 in > g:cf2b3c22a2cbd7f50db530ca9d2b14c70ba0359d > and has never been used since that. > > Ready to be installed? > Thanks, > Martin > > gcc/fortran/ChangeLog: > > * symbol.c (gfc_get_ultimate_derived_super_type): Remove. OK jeff
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 8c9a1d00ce0..173c36f51bc 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -5106,23 +5106,6 @@ gfc_get_derived_super_type (gfc_symbol* derived) } -/* Get the ultimate super-type of a given derived type. */ - -static gfc_symbol* -gfc_get_ultimate_derived_super_type (gfc_symbol* derived) -{ - if (!derived->attr.extension) - return NULL; - - derived = gfc_get_derived_super_type (derived); - - if (derived->attr.extension) - return gfc_get_ultimate_derived_super_type (derived); - else - return derived; -} - - /* Check if a derived type t2 is an extension of (or equal to) a type t1. */ bool