From: Thomas Koenig Date: Tue, 26 Sep 2017 16:49:13 +0000 (+0000) Subject: associate1.f90: Really commit change from 2017-09-25. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5714abfff8a8b04cdd294bd9968bcc72924213ec;p=gcc.git associate1.f90: Really commit change from 2017-09-25. 2017-09-26 Thomas Koenig * 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 77ac3d1fa0f..697d0639dc5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2017-09-26 Thomas Koenig + + * 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 PR middle-end/35691 diff --git a/gcc/testsuite/gfortran.dg/gomp/associate1.f90 b/gcc/testsuite/gfortran.dg/gomp/associate1.f90 index abc5ae95a0d..5412301fe87 100644 --- 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 1cc0bf24bad..03216334586 100644 --- 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 cb84e7fc26f..28972b6d6b0 100644 --- 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