diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-09-26 16:49:13 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-09-26 16:49:13 +0000 |
| commit | 5714abfff8a8b04cdd294bd9968bcc72924213ec (patch) | |
| tree | 0f472264a07e0880f3d5fc3be13cab32c9381c21 /gcc | |
| parent | 938b6f1e5d31c8c3ef4dd1dd4d6b65b3f53ad07d (diff) | |
| download | gcc-5714abfff8a8b04cdd294bd9968bcc72924213ec.zip gcc-5714abfff8a8b04cdd294bd9968bcc72924213ec.tar.gz gcc-5714abfff8a8b04cdd294bd9968bcc72924213ec.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/associate1.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/predcom-1.f | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unconstrained_commons.f | 4 |
4 files changed, 12 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 77ac3d1..697d063 100644 --- 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 abc5ae9..5412301 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 1cc0bf2..0321633 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 cb84e7f..28972b6 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 |