https://gcc.gnu.org/g:cb0ea2669ede4c4ae68d0e8b2985cb4d87d46d2c
commit cb0ea2669ede4c4ae68d0e8b2985cb4d87d46d2c Author: Mikael Morin <[email protected]> Date: Sat Jul 25 12:25:54 2026 +0200 Correction motif dump coarray_lock_7.f90 Diff: --- gcc/testsuite/gfortran.dg/coarray_lock_7.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/coarray_lock_7.f90 b/gcc/testsuite/gfortran.dg/coarray_lock_7.f90 index f144e66f4d08..ae080b2b1982 100644 --- a/gcc/testsuite/gfortran.dg/coarray_lock_7.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_lock_7.f90 @@ -35,8 +35,8 @@ end ! { dg-final { scan-tree-dump-times "_gfortran_caf_lock \\(caf_token.., 0, 0, 0B, 0B, 0B, 0\\);" 1 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_caf_unlock \\(caf_token.., 0, 0, 0B, 0B, 0\\);" 1 "original" } } -! { dg-final { scan-tree-dump-times {_gfortran_caf_lock \(caf_token.., .*\(\(3 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\].ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 1> \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, 0B, &ii, 0B, 0\);|_gfortran_caf_lock \(caf_token.1, \(3 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 1> \* \(3 - parm.\d+\.dim\[1\].lbound\), 0, 0B, &ii, 0B, 0\);} 1 "original" } } -! { dg-final { scan-tree-dump-times {_gfortran_caf_unlock \(caf_token.., .*\(\(2 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 0> \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, &ii, 0B, 0\);|_gfortran_caf_unlock \(caf_token.., \(2 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 0> \* \(3 - parm.\d+\.dim\[1\]\.lbound\), 0, &ii, 0B, 0\);} 1 "original" } } +! { dg-final { scan-tree-dump-times {_gfortran_caf_lock \(caf_token.., .*\(\(3 - parm.\d+\.dim\[0\]\.lbound\) \+ \(parm.\d+\.dim\[0\].ubound - \(parm.\d+\.dim\[0\]\.lbound \+ -1\)\) \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, 0B, &ii, 0B, 0\);} 1 "original" } } +! { dg-final { scan-tree-dump-times {_gfortran_caf_unlock \(caf_token.., .*\(\(2 - parm.\d+\.dim\[0\]\.lbound\) \+ \(parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound \+ -1\)\) \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, &ii, 0B, 0\);} 1 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_caf_lock \\(three.token, 0, \\(integer\\(kind=4\\)\\) \\(5 - three.dim\\\[0\\\].lbound\\), &acquired.\[0-9\]+, 0B, 0B, 0\\);|_gfortran_caf_lock \\(three.token, 0, 5 - three.dim\\\[0\\\].lbound, &acquired.\[0-9\]+, 0B, 0B, 0\\);" 1 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_caf_unlock \\(three.token, 0, \\(integer\\(kind=4\\)\\) \\(8 - three.dim\\\[0\\\].lbound\\), &ii, 0B, 0\\);|_gfortran_caf_unlock \\(three.token, 0, 8 - three.dim\\\[0\\\].lbound, &ii, 0B, 0\\);" 1 "original" } }
