[gcc(refs/users/mikael/heads/pr121185_v04)] Correction pr117797

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5ead60bbc1aa643fb82ddf8d74de5e3f30e22428

commit 5ead60bbc1aa643fb82ddf8d74de5e3f30e22428
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Jul 25 19:19:55 2025 +0200

    Correction pr117797

Diff:
---
 gcc/fortran/trans-expr.cc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 0b32a609427f..c5849ef6469a 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -12871,6 +12871,8 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * 
expr2, bool init_flag,
   gfc_init_se (&lse, NULL);
   gfc_init_se (&rse, NULL);
 
+  gfc_fix_class_refs (expr1);
+
   realloc_flag = flag_realloc_lhs
                 && gfc_is_reallocatable_lhs (expr1)
                 && expr2->rank