[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction motif array_reference_3

[Mikael Morin via Gcc-cvs]

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

commit f80fc31cf30808cec0f54ecc33a3b2f7095d1a72
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Aug 15 19:07:35 2025 +0200

    Correction motif array_reference_3

Diff:
---
 gcc/testsuite/gfortran.dg/array_reference_3.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/array_reference_3.f90 
b/gcc/testsuite/gfortran.dg/array_reference_3.f90
index 4841518dcc32..b6de9091792c 100644
--- a/gcc/testsuite/gfortran.dg/array_reference_3.f90
+++ b/gcc/testsuite/gfortran.dg/array_reference_3.f90
@@ -65,7 +65,8 @@ contains
     call ccfis(x)
     if (any(x /= 13)) stop 13
     ! The cfi descriptor’s dim array is referenced with array indexing.
-    ! { dg-final { scan-tree-dump-times 
{cfi_descriptor->dim\[idx.\d+\]\.ubound = 
_cfi_descriptor->dim\[idx.\d+\]\.extent \+ \((?:NON_LVALUE_EXPR 
<)?cfi_descriptor->dim\[idx.\d+\]\.lbound>? \+ -1\);} 1 "original" } }
+    ! { dg-final { scan-tree-dump-times {cfi_descriptor->dim\[[^]]+\]\.ubound 
= (?:NON_LVALUE_EXPR <)?_cfi_descriptor->dim\[[^]]+\]\.extent>?(?: \+ 
\((?:NON_LVALUE_EXPR <)?cfi_descriptor->dim\[[^]]+\]\.lbound>? \+ -1\))?;} 1 
"original" } }
+    ! { #dg-final { scan-tree-dump-times {cfi_descriptor->dim\[[^]]+\]\.ubound 
= (?:NON_LVALUE_EXPR <)?_cfi_descriptor->dim\[idx.\d+\]\.extent>?(?: \+ 
\((?:NON_LVALUE_EXPR <)?cfi_descriptor->dim\[idx.\d+\]\.lbound>? \+ -1\))?;} 1 
"original" } }
   end subroutine check_cfi_dim
   subroutine css(c) bind(c)
     character :: c