https://gcc.gnu.org/g:2a2b72c03e4fd56e3bad4bd412108a11074b0cda

commit 2a2b72c03e4fd56e3bad4bd412108a11074b0cda
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed May 14 17:43:38 2025 +0200

    Mise à jour dump unconstrained_commons.f

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

diff --git a/gcc/testsuite/gfortran.dg/unconstrained_commons.f 
b/gcc/testsuite/gfortran.dg/unconstrained_commons.f
index 28972b6d6b0e..344fc0c403f4 100644
--- a/gcc/testsuite/gfortran.dg/unconstrained_commons.f
+++ b/gcc/testsuite/gfortran.dg/unconstrained_commons.f
@@ -16,6 +16,6 @@
       END
 ! { dg-final { scan-tree-dump-not "FIND" "dom2" } }
 ! We should retain both a read and write of mycommon.x.
-! { dg-final { scan-tree-dump-times "  _\[0-9\]+ = 
mycommon\\.x\\\[_\[0-9\]+\\\];" 1 "dom2" } }
-! { dg-final { scan-tree-dump-times "  mycommon\\.x\\\[j?_\[0-9\]+\\\] = 
_\[0-9\]+;" 1 "dom2" } }
+! { dg-final { scan-tree-dump-times {  _[0-9]+ = 
mycommon\.x\[_[0-9]+\](?:\{lb: 0 sz 8\})?} 1 "dom2" } }
+! { dg-final { scan-tree-dump-times {  mycommon\.x\[j?_[0-9]+\](?:\{lb: 0 sz: 
8\})? = _[0-9]+} 1 "dom2" } }
 ! { dg-prune-output "overflows the destination" }

Reply via email to