From 3bc3f6cefc2b92d368affacb74928948388c4786 Mon Sep 17 00:00:00 2001 From: Martin Liska Date: Tue, 9 Nov 2021 14:57:00 +0100 Subject: [PATCH] Remove dead Fortran function. gcc/fortran/ChangeLog: * symbol.c (gfc_get_ultimate_derived_super_type): Remove. --- gcc/fortran/symbol.c | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 8c9a1d00ce01..173c36f51bc9 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 -- 2.47.2