associate1.f90: Really commit change from 2017-09-25.

2017-09-26  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* gfortran.dg/gomp/associate1.f90: Really commit change
	from 2017-09-25.
	* gfortran.dg/predcom-1.f: Likewise.
	* gfortran.dg/unconstrained_commons.f: Likewise.

From-SVN: r253206

gcc/testsuite/ChangeLog

+2017-09-26  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* gfortran.dg/gomp/associate1.f90: Really commit change
+	from 2017-09-25.
+	* gfortran.dg/predcom-1.f: Likewise.
+	* gfortran.dg/unconstrained_commons.f: Likewise.
+
 2017-09-26  Jakub Jelinek  <jakub@redhat.com>
 
 	PR middle-end/35691

gcc/testsuite/gfortran.dg/gomp/associate1.f90

@@ -14,7 +14,7 @@ program associate1
   type(dt) :: b(3)
   i = 1
   j = 2
-  associate(k => v, l => a(i, j), m => a(i, :))
+  associate(k => v, l => a(i, j), m => a(i, :)) ! { dg-warning "out of bounds" }
   associate(n => b(j)%c(:, :)%i, o => a, p => b)
 !$omp parallel shared (l)	! { dg-error "ASSOCIATE name" }
 !$omp end parallel
@@ -75,7 +75,7 @@ program associate1
   end do
   k = 1
 !$omp simd linear (k : 2)	! { dg-error "ASSOCIATE name" }
-  do i = 1, 10
+  do i = 1, 10 ! { dg-warning "out of bounds" }
     k = k + 2
   end do
   end associate

gcc/testsuite/gfortran.dg/predcom-1.f

@@ -8,7 +8,7 @@
       INTEGER            I
       REAL               ANORM
       INTRINSIC          ABS
-            DO 20 I = 1, N
+            DO 20 I = 2, N
                ANORM = ANORM +ABS( E( I ) )+ ABS( E( I-1 ) )
    20       CONTINUE
       CLANHT = ANORM

gcc/testsuite/gfortran.dg/unconstrained_commons.f

@@ -9,8 +9,8 @@
       IMPLICIT DOUBLE PRECISION (X)
       INTEGER J
       COMMON /MYCOMMON / X(1)
-      DO 10 J=1,1024
-         X(J+1)=X(J+7)
+      DO 10 J=1,1024 ! { dg-warning "out of bounds" }
+         X(J+1)=X(J+7) ! { dg-warning "out of bounds" }
   10  CONTINUE
       RETURN
       END