Hi Andre,
It seems that the committed test gfortran.dg/coarray_lib_comm_1.f90 is not
right. I have to apply the patch
--- ../_clean/gcc/testsuite/gfortran.dg/coarray_lib_comm_1.f90 2016-09-23
12:45:56.000000000 +0200
+++ gcc/testsuite/gfortran.dg/coarray_lib_comm_1.f90 2016-09-24
12:15:02.000000000 +0200
@@ -40,7 +40,7 @@ end
! { dg-final { scan-tree-dump-times "_gfortran_caf_sendget \\\(caf_token.0,
\\\(integer\\\(kind=\[48\]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=\[48\]\\\)\\\) a, _gfortran_caf_this_image \\\(0\\\),
&parm.\[0-9\]+, 0B, caf_token.0, \\\(integer\\\(kind=\[48\]\\\)\\\)
parm.\[0-9\]+.data - \\\(integer\\\(kind=\[48\]\\\)\\\) a, 1, &parm.\[0-9\]+,
0B, 4, 4, 0, 0B\\\);" 1 "original" } }
! { dg-final { scan-tree-dump-times "_gfortran_caf_sendget \\\(caf_token.0,
\\\(integer\\\(kind=\[48\]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=\[48\]\\\)\\\) a, _gfortran_caf_this_image \\\(0\\\),
&parm.\[0-9\]+, 0B, caf_token.0, \\\(integer\\\(kind=\[48\]\\\)\\\)
parm.\[0-9\]+.data - \\\(integer\\\(kind=\[48\]\\\)\\\) a, 1, &parm.\[0-9\]+,
0B, 4, 4, 1, 0B\\\);" 1 "original" } }
-! { dg-final { scan-tree-dump-times "_gfortran_caf_get \\\(caf_token.0,
\\\(integer\\\(kind=8\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=8\\\)\\\) a, 1, &parm.\[0-9\]+, 0B, &p, 4, 4, 1, 0B\\\);" 1
"original" } }
-! { dg-final { scan-tree-dump-times "_gfortran_caf_get \\\(caf_token.1,
\\\(integer\\\(kind=8\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=8\\\)\\\) b, 1, &parm.\[0-9\]+, 0B, &p, 4, 4, 0, 0B\\\);" 1
"original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_caf_get \\\(caf_token.0,
\\\(integer\\\(kind=[48]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=8\\\)\\\) a, 1, &parm.\[0-9\]+, 0B, &p, 4, 4, 1, 0B\\\);" 1
"original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_caf_get \\\(caf_token.1,
\\\(integer\\\(kind=[48]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=8\\\)\\\) b, 1, &parm.\[0-9\]+, 0B, &p, 4, 4, 0, 0B\\\);" 1
"original" } }
! { dg-final { scan-tree-dump-times "_gfortran_caf_sendget \\\(caf_token.0,
\\\(integer\\\(kind=\[48\]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=\[48\]\\\)\\\) a, 1, &parm.\[0-9\]+, 0B, caf_token.0,
\\\(integer\\\(kind=\[48\]\\\)\\\) parm.\[0-9\]+.data -
\\\(integer\\\(kind=\[48\]\\\)\\\) a, 1, &parm.\[0-9\]+, 0B, 4, 4, 0, 0B\\\);"
1 "original" } }
to make it pass with -m32.
I can do the commit if it helps.
TIA
Dominique
