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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 77ac3d1fa0ff42ad0762a1d9d0c53e4a562ba095..697d0639dc5db2f13bd3932d0419a289877324cc 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/gomp/associate1.f90 b/gcc/testsuite/gfortran.dg/gomp/associate1.f90
index abc5ae95a0d1c55de3fdd1c4b31af35f119cac4b..5412301fe8713311e2cd69b54e68704ac8fd9d12 100644 (file)
--- a/gcc/testsuite/gfortran.dg/gomp/associate1.f90
+++ b/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

diff --git a/gcc/testsuite/gfortran.dg/predcom-1.f b/gcc/testsuite/gfortran.dg/predcom-1.f
index 1cc0bf24bad88931296164436ae7d69b2417f800..03216334586480174bf085e62ab8ea18dc031347 100644 (file)
--- a/gcc/testsuite/gfortran.dg/predcom-1.f
+++ b/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

diff --git a/gcc/testsuite/gfortran.dg/unconstrained_commons.f b/gcc/testsuite/gfortran.dg/unconstrained_commons.f
index cb84e7fc26fb3012e4c7a9f5a418f336e03b1ed1..28972b6d6b0eb5c4430fc67ce84c17be1a8962fa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unconstrained_commons.f
+++ b/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