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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:979f87a17a57eb468e544f910149bd56f9b6def9

commit 979f87a17a57eb468e544f910149bd56f9b6def9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed May 28 12:56:28 2025 +0200

    Correction régression no_arg_check

Diff:
---
 gcc/testsuite/gfortran.dg/no_arg_check_2.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/no_arg_check_2.f90 
b/gcc/testsuite/gfortran.dg/no_arg_check_2.f90
index 3570b9719ebb..89652ea3eeba 100644
--- a/gcc/testsuite/gfortran.dg/no_arg_check_2.f90
+++ b/gcc/testsuite/gfortran.dg/no_arg_check_2.f90
@@ -129,22 +129,22 @@ end
 
 ! { dg-final { scan-tree-dump-times "sub_scalar .&scalar_int," 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .&scalar_t1," 1 "original" } }
-! { dg-final { scan-tree-dump-times "sub_scalar .&array_int.1.," 1 "original" 
} }
+! { dg-final { scan-tree-dump-times {sub_scalar \(&array_int\[1\](?:{lb: 0 sz: 
4})?,} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .&scalar_t1," 1 "original" } }
 
 ! { dg-final { scan-tree-dump-times "sub_scalar .&\\(.\\(real.kind=4..0:. . 
restrict\\) array_real_alloc.data" 1 "original" } }
-! { dg-final { scan-tree-dump-times "sub_scalar .\\(character.kind=1..1:1. 
.\\) .array_char_ptr.data" 1 "original" } }
+! { dg-final { scan-tree-dump-times {sub_scalar \(\(character\(kind=1\)\[1:1\] 
\*\) \(?array_char_ptr\.data \+} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .&\\(.\\(struct t2.0:. . 
restrict\\) array_t2_alloc.data" 1 "original" } }
-! { dg-final { scan-tree-dump-times "sub_scalar .\\(struct t3 .\\) 
.array_t3_ptr.data" 1 "original" } }
+! { dg-final { scan-tree-dump-times {sub_scalar \(\(struct t3 \*\) 
\(?array_t3_ptr\.data \+} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .\\(struct t1 .\\) 
array_class_t1_alloc._data.data" 1 "original" } }
-! { dg-final { scan-tree-dump-times "sub_scalar .\\(struct t1 .\\) 
\\(array_class_t1_ptr._data.dat" 1 "original" } }
+! { dg-final { scan-tree-dump-times {sub_scalar \(\(struct t1 \*\) 
\(?array_class_t1_ptr\._data\.data \+} 1 "original" } }
 
 ! { dg-final { scan-tree-dump-times "sub_array_assumed \\(D" 4 "original" } }
 ! { dg-final { scan-tree-dump-times " = _gfortran_internal_pack \\(&parm" 1 
"original" } }
 ! { dg-final { scan-tree-dump-times "sub_array_assumed \\(&array_int\\)" 1 
"original" } }
 ! { dg-final { scan-tree-dump-times "sub_array_assumed 
\\(\\(real\\(kind=4\\).0:. . restrict\\) array_real_alloc.data" 1 "original" } }
 ! { dg-final { scan-tree-dump-times " = _gfortran_internal_pack 
\\(&array_char_ptr\\);" 1 "original" } }
-! { dg-final { scan-tree-dump-times "\\.data = \\(void .\\) &array_t1.0.;" 1 
"original" } }
+! { dg-final { scan-tree-dump-times {\.data = \(void \*\) 
&array_t1\[0\](?:{lb: 0 sz: 4})?;} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_array_assumed \\(\\(struct t1.0:. 
.\\) parm" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_array_assumed \\(\\(struct t2.0:. . 
restrict\\) array_t2_alloc.data\\);" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_array_assumed \\(\\(struct t1.0:. . 
restrict\\) array_class_t1_alloc._data.data\\);" 1 "original" } }