[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Suppression champ inutile

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9bae9d6605eb221900f793a817df45a0822e229a

commit 9bae9d6605eb221900f793a817df45a0822e229a
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Mar 15 20:07:42 2025 +0100

    Suppression champ inutile

Diff:
---
 gcc/fortran/trans-descriptor.cc | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 2b81e231a3a8..405a1525411a 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1069,7 +1069,6 @@ public:
 class scalar_value : public init_info
 {
 private:
-  bool initialisation;
   gfc_typespec *ts;
   tree value;
   bool use_tree_type_;
@@ -1077,10 +1076,10 @@ private:
 
 public:
   scalar_value(gfc_typespec &arg_ts, tree arg_value)
-    : initialisation(true), ts(&arg_ts), value(arg_value),  use_tree_type_ 
(false) { }
+    : ts(&arg_ts), value(arg_value),  use_tree_type_ (false) { }
   scalar_value(tree arg_value)
-    : initialisation(true), ts(nullptr), value(arg_value), use_tree_type_ 
(true) { }
-  virtual bool is_initialization () const { return initialisation; }
+    : ts(nullptr), value(arg_value), use_tree_type_ (true) { }
+  virtual bool is_initialization () const { return true; }
   virtual gfc_typespec *get_type () const { return ts; }
   virtual bool use_tree_type () const { return use_tree_type_; }
   virtual bt get_type_type (const gfc_typespec &) const;