https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80611
Bug ID: 80611
Summary: [8 regression] test case
gfortran.dg/coarray_lock_7.f90 fails starting with
r247495
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: testsuite
Assignee: unassigned at gcc dot gnu.org
Reporter: seurer at gcc dot gnu.org
Target Milestone: ---
spawn /home/seurer/gcc/build/gcc-test/gcc/testsuite/gfortran/../../gfortran
-B/home/seurer/gcc/build/gcc-test/gcc/testsuite/gfortran/../../
-B/home/seurer/gcc/build/gcc-test/powerpc64le-unknown-linux-gnu/./libgfortran/
/home/seurer/gcc/gcc-test/gcc/testsuite/gfortran.dg/coarray_lock_7.f90
-fno-diagnostics-show-caret -fdiagnostics-color=never -O -fdump-tree-original
-fcoarray=lib -S -o coarray_lock_7.s
PASS: gfortran.dg/coarray_lock_7.f90 -O (test for excess errors)
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_register \\(1, 2, \\(void \\* \\*\\) &caf_token.., \\(void
\\*\\) &desc.., 0B, 0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_register \\(25, 2, \\(void \\* \\*\\) &caf_token.., \\(void
\\*\\) &desc.., 0B, 0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_register \\(1, 3, &three.token, \\(void \\*\\) &three, &stat..,
0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_register \\(7, 3, &four.token, \\(void \\*\\) &four, &stat..,
0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_lock \\(caf_token.., 0, 0, 0B, 0B, 0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_unlock \\(caf_token.., 0, 0, 0B, 0B, 0\\);" 1
FAIL: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_lock \\(caf_token.., \\(3 - \\(integer\\(kind=4\\)\\)
parm...dim\\[0\\].lbound\\) \\+ \\(integer\\(kind=4\\)\\) MAX_EXPR
<\\(parm...dim\\[0\\].ubound - parm...dim\\[0\\].lbound\\) \\+ 1, 0> \\* \\(3 -
\\(integer\\(kind=4\\)\\) parm...dim\\[1\\].lbound\\), 0, 0B, &ii, 0B,
0\\);|_gfortran_caf_lock \\(caf_token.1, \\(3 - parm...dim\\[0\\].lbound\\) \\+
MAX_EXPR <\\(parm...dim\\[0\\].ubound - parm...dim\\[0\\].lbound\\) \\+ 1, 0>
\\* \\(3 - parm...dim\\[1\\].lbound\\), 0, 0B, &ii, 0B, 0\\);" 1
FAIL: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_unlock \\(caf_token.., \\(2 - \\(integer\\(kind=4\\)\\)
parm...dim\\[0\\].lbound\\) \\+ \\(integer\\(kind=4\\)\\) MAX_EXPR
<\\(parm...dim\\[0\\].ubound - parm...dim\\[0\\].lbound\\) \\+ 1, 0> \\* \\(3 -
\\(integer\\(kind=4\\)\\) parm...dim\\[1\\].lbound\\), 0, &ii, 0B,
0\\);|_gfortran_caf_unlock \\(caf_token.., \\(2 - parm...dim\\[0\\].lbound\\)
\\+ MAX_EXPR <\\(parm...dim\\[0\\].ubound - parm...dim\\[0\\].lbound\\) \\+ 1,
0> \\* \\(3 - parm...dim\\[1\\].lbound\\), 0, &ii, 0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_lock \\(three.token, 0, 5 - \\(integer\\(kind=4\\)\\)
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
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_unlock \\(three.token, 0, 8 - \\(integer\\(kind=4\\)\\)
three.dim\\[0\\].lbound, &ii, 0B, 0\\);|_gfortran_caf_unlock \\(three.token, 0,
8 - three.dim\\[0\\].lbound, &ii, 0B, 0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_lock \\(four.token, 1 - \\(integer\\(kind=4\\)\\)
four.dim\\[0\\].lbound, 7 - \\(integer\\(kind=4\\)\\) four.dim\\[1\\].lbound,
&acquired.[0-9]+, &ii, 0B, 0\\);|_gfortran_caf_lock \\(four.token, 1 -
four.dim\\[0\\].lbound, 7 - four.dim\\[1\\].lbound, &acquired.[0-9]+, &ii, 0B,
0\\);" 1
PASS: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original
"_gfortran_caf_unlock \\(four.token, 2 - \\(integer\\(kind=4\\)\\)
four.dim\\[0\\].lbound, 8 - \\(integer\\(kind=4\\)\\) four.dim\\[1\\].lbound,
0B, 0B, 0\\);|_gfortran_caf_unlock \\(four.token, 2 - four.dim\\[0\\].lbound, 8
- four.dim\\[1\\].lbound, 0B, 0B, 0\\);" 1
testcase /home/seurer/gcc/gcc-test/gcc/testsuite/gfortran.dg/dg.exp completed
in 0 seconds
The test case is looking for specific tree sequences and probably just needs to
be updated (once it's checked) to match what is being produced after this
revision.
