[gcc(refs/users/mikael/heads/refactor_descriptor_v206 .01)] Correction variable inutilisée

https://gcc.gnu.org/g:00c4da6e0ef2428e5af2f4876ebaea9788fc66d1

commit 00c4da6e0ef2428e5af2f4876ebaea9788fc66d1
Author: Mikael Morin <[email protected]>
Date:   Fri Aug 21 20:52:39 2026 +0200

    Correction variable inutilisée

Diff:
---
 gcc/fortran/trans-descriptor.cc | 1 -
 1 file changed, 1 deletion(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 2f074f5fa223..02a4187f2305 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -890,7 +890,6 @@ gfc_set_descriptor_from_scalar (stmtblock_t *block, tree descr,
 void
 gfc_set_descriptor_from_scalar (stmtblock_t *block, tree descr, tree scalar)
 {
-  tree etype = TREE_TYPE (scalar);
   if (!POINTER_TYPE_P (TREE_TYPE (scalar)))
     scalar = gfc_build_addr_expr (NULL_TREE, scalar);
   gfc_set_descriptor_from_scalar (block, descr, scalar, NULL_TREE);