===================================================================
@@ -1,3 +1,9 @@
+2014-07-02 Tobias Burnus <burnus@net-b.de>
+
+ * gfortran.dg/coarray/get_array.f90: Add missing SYNC ALL.
+ * gfortran.dg/coarray/send_array.f90: Ditto.
+ * gfortran.dg/coarray/sendget_array.f90: Ditto.
+
2014-07-01 James Greenhalgh <james.greenhalgh@arm.com>
Yufeng Zhang <yufeng.zhang@arm.com>
===================================================================
@@ -52,6 +52,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -76,6 +77,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -101,6 +103,7 @@ contains
if (any (c /= a)) then
call abort()
end if
+ sync all
end do
end do
end do
@@ -135,6 +138,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -159,6 +163,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -184,6 +189,7 @@ contains
if (any (c /= a)) then
call abort()
end if
+ sync all
end do
end do
end do
@@ -218,6 +224,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -242,6 +249,7 @@ contains
if (any (a /= c)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -267,6 +275,7 @@ contains
if (any (c /= a)) then
call abort()
end if
+ sync all
end do
end do
end do
===================================================================
@@ -44,6 +44,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Whole array: ARRAY = ARRAY
caf = -42
@@ -58,6 +59,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -90,6 +92,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -136,6 +139,7 @@ contains
call abort()
endif
end if
+ sync all
end do
end do
end do
@@ -183,6 +187,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -215,6 +220,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -261,6 +267,7 @@ contains
call abort()
endif
end if
+ sync all
end do
end do
end do
@@ -308,6 +315,7 @@ contains
if (any (a /= caf)) &
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -386,6 +394,7 @@ contains
call abort()
endif
end if
+ sync all
end do
end do
end do
===================================================================
@@ -52,6 +52,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -76,6 +77,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -101,6 +103,7 @@ contains
if (any (caf2 /= a)) then
call abort()
end if
+ sync all
end do
end do
end do
@@ -135,6 +138,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -159,6 +163,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -184,6 +189,7 @@ contains
if (any (caf2 /= a)) then
call abort()
end if
+ sync all
end do
end do
end do
@@ -218,6 +224,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Scalar assignment
caf = -42
@@ -242,6 +249,7 @@ contains
if (any (a /= caf2)) then
call abort()
end if
+ sync all
! Array sections with different ranges and pos/neg strides
do i_sgn1 = -1, 1, 2
@@ -267,6 +275,7 @@ contains
if (any (caf2 /= a)) then
call abort()
end if
+ sync all
end do
end do
end do