[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Mise à jour dump coarray_lib_alloc_4.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:37a7e6605342f8ce0b4c91db5e9c4f1a70790b32

commit 37a7e6605342f8ce0b4c91db5e9c4f1a70790b32
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Feb 11 18:51:30 2025 +0100

    Mise à jour dump coarray_lib_alloc_4.f90

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

diff --git a/gcc/testsuite/gfortran.dg/coarray_lib_alloc_4.f90 
b/gcc/testsuite/gfortran.dg/coarray_lib_alloc_4.f90
index d695faa9eafc..01da867c4479 100644
--- a/gcc/testsuite/gfortran.dg/coarray_lib_alloc_4.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lib_alloc_4.f90
@@ -38,10 +38,10 @@ program test_caf_alloc
   deallocate(xx)
 end
 
-! { dg-final { scan-tree-dump-times "_gfortran_caf_is_present \\(xx\\.token, 
\\(integer\\(kind=4\\)\\) \\(2 - xx\\.dim\\\[0\\\]\\.lbound\\), 
&caf_ref\\.\[0-9\]+\\)|_gfortran_caf_is_present \\(xx\\.token, 2 - 
xx\\.dim\\\[0\\\]\\.lbound, &caf_ref\\.\[0-9\]+\\)" 10 "original" } }
-! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(\[0-9\]+, 1, 
&xx\\.token, \\(void \\*\\) &xx, 0B, 0B, 0\\)" 1 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_is_present 
\((?:NON_LVALUE_EXPR <)?xx\.token>?, \(integer\(kind=4\)\) \(2 - 
xx\.dim\[0\]\.lbound\), &caf_ref\.[0-9]+\)|_gfortran_caf_is_present 
\((?:NON_LVALUE_EXPR <)?xx\.token>?, 2 - xx\.dim\[0\]\.lbound, 
&caf_ref\.[0-9]+\)} 10 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_register \([0-9]+, 1, 
&(?:NON_LVALUE_EXPR <)?xx\.token>?, \(void \*\) &xx, 0B, 0B, 0\)} 1 "original" 
} }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(\[0-9\]+, 7" 2 
"original" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(\[0-9\]+, 8" 2 
"original" } }
-! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister \\(&xx\\.token, 
0, 0B, 0B, 0\\)" 1 "original" } }
-! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister \\(&\\(\\(struct 
t \\* restrict\\) xx\\.data\\)->r\\.token, 1, 0B, 0B, 0\\)" 1 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_deregister 
\(&(?:NON_LVALUE_EXPR <)?xx\.token>?, 0, 0B, 0B, 0\)} 1 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_deregister 
\(&(?:NON_LVALUE_EXPR <)?\(\(struct t \* restrict\) xx\.data\)->r\.token>?, 1, 
0B, 0B, 0\)} 1 "original" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister \\(&\\(\\(struct 
t \\* restrict\\) xx\\.data\\)->_caf_i, 1, 0B, 0B, 0\\)" 1 "original" } }