get_array.f90: Add missing SYNC ALL.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6c0e2ac..f34dccb 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
 

diff --git a/gcc/testsuite/gfortran.dg/coarray/get_array.f90 b/gcc/testsuite/gfortran.dg/coarray/get_array.f90
index cf7674a..c4c9667 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray/get_array.f90
+++ b/gcc/testsuite/gfortran.dg/coarray/get_array.f90
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/coarray/send_array.f90 b/gcc/testsuite/gfortran.dg/coarray/send_array.f90
index 372718f..dc47007 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray/send_array.f90
+++ b/gcc/testsuite/gfortran.dg/coarray/send_array.f90
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90 b/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90
index 98e4cbe..a53d3d3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90
+++ b/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90
@@ -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