https://gcc.gnu.org/g:24a4b6d62f5cb4255a8e00eb5746cb2f5333a4e2

commit 24a4b6d62f5cb4255a8e00eb5746cb2f5333a4e2
Author: Mikael Morin <[email protected]>
Date:   Fri Oct 16 22:19:09 2026 +0200

    Correction class_array_20

Diff:
---
 gcc/fortran/trans-stmt.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc
index 2a87176ffa9f..cfde1f15a14f 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -6732,7 +6732,7 @@ gfc_trans_allocate (gfc_code * code, gfc_omp_namelist 
*omp_allocate)
         substring references, part-refs, or %re/%im inquiries, wrap the
         entity in parentheses to force evaluation of the expression.  */
       if (code->expr3->expr_type == EXPR_VARIABLE
-         && is_subref_array (code->expr3))
+         && is_subobject_ref (code->expr3))
        code->expr3 = gfc_get_parentheses (code->expr3);
 
       if (code->expr3->expr_type == EXPR_VARIABLE

Reply via email to