https://gcc.gnu.org/g:fe27f68b348d57ef5533a4d8ff2dad166ddff934
commit fe27f68b348d57ef5533a4d8ff2dad166ddff934
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Wed Aug 20 10:17:48 2025 +0200
Suppression fonction inutilisée
Diff:
---
gcc/fortran/match.cc | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/gcc/fortran/match.cc b/gcc/fortran/match.cc
index eaba692dd81a..8355a390ee08 100644
--- a/gcc/fortran/match.cc
+++ b/gcc/fortran/match.cc
@@ -7224,22 +7224,6 @@ select_intrinsic_set_tmp (gfc_typespec *ts, const char
*var_name)
}
-static const char *
-get_select_type_var_name ()
-{
- const char *name = "";
- gfc_expr *e = gfc_state_stack->construct->expr1;
- if (e->symtree)
- name = e->symtree->name;
- for (gfc_ref *r = e->ref; r; r = r->next)
- if (r->type == REF_COMPONENT
- && strcmp (r->u.c.component->name, "_data") != 0)
- name = r->u.c.component->name;
-
- return name;
-}
-
-
/* Set up a temporary for the current TYPE IS / CLASS IS branch . */
static void
