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

gcc/testsuite/ChangeLog

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

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

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

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