[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression bind_c_char_9

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:3eed929a366719417099e95832157737c0aae732

commit 3eed929a366719417099e95832157737c0aae732
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed May 28 12:36:43 2025 +0200

    Correction régression bind_c_char_9

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

diff --git a/gcc/testsuite/gfortran.dg/bind_c_char_9.f90 
b/gcc/testsuite/gfortran.dg/bind_c_char_9.f90
index 64d73409df37..1c1f69527190 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_char_9.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_char_9.f90
@@ -201,7 +201,7 @@ end
 ! { dg-final { scan-tree-dump-not "dtype" "original" } }
 ! { dg-final { scan-tree-dump-times "void s1 
\\(character\\(kind=1\\)\\\[1:1\\\] & restrict x1\\)" 1 "original" } }
 ! { dg-final { scan-tree-dump-not "void s2 " "original" } }
-! { dg-final { scan-tree-dump-times "void az1 
\\(character\\(kind=1\\)\\\[0:\\\]\\\[1:1\\\] \\* restrict x1\\)" 1 "original" 
} }
+! { dg-final { scan-tree-dump-times {void az1 
\(character\(kind=1\)\[.:\]\[1:1\] \* restrict x1\)} 1 "original" } }
 ! { dg-final { scan-tree-dump-not "void az2 " "original" } }
-! { dg-final { scan-tree-dump-times "void ae1 
\\(character\\(kind=1\\)\\\[6\\\]\\\[1:1\\\] \\* restrict x1\\)" 1 "original" } 
}
+! { dg-final { scan-tree-dump-times {void ae1 
\(character\(kind=1\)\[(?:1:)?6\]\[1:1\] \* restrict x1\)} 1 "original" } }
 ! { dg-final { scan-tree-dump-not "void ae2 " "original" } }