diff options
| author | Martin Liska <mliska@suse.cz> | 2021-11-09 14:57:00 +0100 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2021-11-09 17:53:20 +0100 |
| commit | 3bc3f6cefc2b92d368affacb74928948388c4786 (patch) | |
| tree | cb71dd3b7a61edca3665a35536f94c8bad678c31 | |
| parent | 5aa7a09369a7258793e364431d3945e8c3b94044 (diff) | |
| download | gcc-3bc3f6cefc2b92d368affacb74928948388c4786.zip gcc-3bc3f6cefc2b92d368affacb74928948388c4786.tar.gz gcc-3bc3f6cefc2b92d368affacb74928948388c4786.tar.bz2 | |
Remove dead Fortran function.
gcc/fortran/ChangeLog:
* symbol.c (gfc_get_ultimate_derived_super_type): Remove.
| -rw-r--r-- | gcc/fortran/symbol.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 8c9a1d0..173c36f 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 |