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" }