procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

get_array.f90: Add missing SYNC ALL.

Browse source 
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.

From-SVN: r212220
This commit is contained in:
Tobias Burnus 2014-07-02 08:18:35 +02:00 • committed by Tobias Burnus
parent 549bcbd17f
commit a90532fda1
4 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -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>

9
gcc/testsuite/gfortran.dg/coarray/get_array.f90
View file

@ -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

9
gcc/testsuite/gfortran.dg/coarray/send_array.f90
View file

@ -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

9
gcc/testsuite/gfortran.dg/coarray/sendget_array.f90
View file

@ -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