[gcc r16-3013] fortran: Remove unused field use_offset

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:c9da74d5ad383b309195afb37b9044c1087da026

commit r16-3013-gc9da74d5ad383b309195afb37b9044c1087da026
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Aug 5 17:11:03 2025 +0200

    fortran: Remove unused field use_offset
    
    The gfc_se::use_offset field is set in a few places, but is nowhere
    used.  Remove it.
    
    gcc/fortran/ChangeLog:
    
            * trans.h (gfc_se): Remove field use_offset.
            * trans-expr.cc (gfc_conv_intrinsic_to_class): Remove use_offset
            initialization.
            (gfc_conv_procedure_call): Likewise.
            * trans-stmt.cc (trans_associate_var): Likewise.

Diff:
---
 gcc/fortran/trans-expr.cc | 2 --
 gcc/fortran/trans-stmt.cc | 1 -
 gcc/fortran/trans.h       | 4 ----
 3 files changed, 7 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index e6c321844352..2dd093673ebf 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -1168,7 +1168,6 @@ gfc_conv_intrinsic_to_class (gfc_se *parmse, gfc_expr *e,
       else
        {
          parmse->ss = ss;
-         parmse->use_offset = 1;
          gfc_conv_expr_descriptor (parmse, e);
 
          /* Array references with vector subscripts and non-variable 
expressions
@@ -7542,7 +7541,6 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
                        || CLASS_DATA (fsym)->attr.codimension))
            {
              /* Pass a class array.  */
-             parmse.use_offset = 1;
              gfc_conv_expr_descriptor (&parmse, e);
              bool defer_to_dealloc_blk = false;
 
diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc
index 4f2f4da2f281..198acee1ba3e 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -2116,7 +2116,6 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block 
*block)
       if (sym->assoc->variable || cst_array_ctor)
        {
          se.direct_byref = 1;
-         se.use_offset = 1;
          se.expr = desc;
          GFC_DECL_PTR_ARRAY_P (sym->backend_decl) = 1;
        }
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index 40680e97cbc9..55541845a6d6 100644
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -105,10 +105,6 @@ typedef struct gfc_se
   /* If set, will pass subref descriptors without a temporary.  */
   unsigned force_no_tmp:1;
 
-  /* Unconditionally calculate offset for array segments and constant
-     arrays in gfc_conv_expr_descriptor.  */
-  unsigned use_offset:1;
-
   unsigned want_coarray:1;
 
   /* Scalarization parameters.  */