[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression bind-c-contiguous-2

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:374a2f35ed729903fd38b1c1ba16ebd64bd2ce0f

commit 374a2f35ed729903fd38b1c1ba16ebd64bd2ce0f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed May 28 11:05:30 2025 +0200

    Correction régression bind-c-contiguous-2

Diff:
---
 gcc/testsuite/gfortran.dg/bind-c-contiguous-2.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/bind-c-contiguous-2.f90 
b/gcc/testsuite/gfortran.dg/bind-c-contiguous-2.f90
index 243c4a57cba4..9f8dc9005df4 100644
--- a/gcc/testsuite/gfortran.dg/bind-c-contiguous-2.f90
+++ b/gcc/testsuite/gfortran.dg/bind-c-contiguous-2.f90
@@ -67,7 +67,7 @@ end
 ! { dg-final { scan-tree-dump-times "yy->data = \\(void \\* restrict\\) 
_yy->base_addr;" 1 "original" } }
 ! { dg-final { scan-tree-dump-times {__builtin_memcpy \(_yy->base_addr \+ 
shift.[0-9]+, \(void \*\) yy->data \+ yy->dtype.elem_len \* arrayidx.[0-9]+, 
(?:NON_LVALUE_EXPR <)?yy->dtype.elem_len>?\);} 1 "original" } }
 
-! { dg-final { scan-tree-dump-times "zz = 
\\(character\\(kind=1\\)\\\[0:\\\]\\\[1:zz.\[0-9\]+\\\] \\* restrict\\) 
_zz->base_addr;" 1 "original" } }
+! { dg-final { scan-tree-dump-times {zz = 
\(character\(kind=1\)\[.:\]\[1:zz.[0-9]+\] \* restrict\) _zz->base_addr;} 1 
"original" } }
 ! { dg-final { scan-tree-dump-times "__builtin_memcpy \\(\\(void \\*\\) zz \\+ 
_zz->elem_len \\* arrayidx.\[0-9\]+, _zz->base_addr \\+ shift.\[0-9\]+, 
_zz->elem_len\\);" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "__builtin_memcpy \\(_zz->base_addr \\+ 
shift.\[0-9\]+, \\(void \\*\\) zz \\+ _zz->elem_len \\* arrayidx.\[0-9\]+, 
_zz->elem_len\\);" 1 "original" } }
 
@@ -78,5 +78,5 @@ end
 ! { dg-final { scan-tree-dump-times "aa->data = \\(void \\* restrict\\) 
_aa->base_addr;" 1 "original" } }
 ! { dg-final { scan-tree-dump-times {__builtin_memcpy \(\(void \*\) bb->data 
\+ bb->dtype.elem_len \* arrayidx.[0-9]+, _bb->base_addr \+ shift.[0-9]+, 
(?:NON_LVALUE_EXPR <)?bb->dtype.elem_len>?\);} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "bb->data = \\(void \\* restrict\\) 
_bb->base_addr;" 1 "original" } }
-! { dg-final { scan-tree-dump-times "cc = 
\\(character\\(kind=1\\)\\\[0:\\\]\\\[1:cc.\[0-9\]+\\\] \\* restrict\\) 
_cc->base_addr;" 1 "original" } }
+! { dg-final { scan-tree-dump-times {cc = 
\(character\(kind=1\)\[.:\]\[1:cc.[0-9]+\] \* restrict\) _cc->base_addr;} 1 
"original" } }
 ! { dg-final { scan-tree-dump-times "__builtin_memcpy \\(\\(void \\*\\) cc \\+ 
_cc->elem_len \\* arrayidx.\[0-9\]+, _cc->base_addr \\+ shift.\[0-9\]+, 
_cc->elem_len\\);" 1 "original" } }