diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-06-10 10:07:13 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-06-10 10:07:13 +0000 |
commit | ac39f0e831cee81e63b0d3a84d2ae6943b27ee5b (patch) | |
tree | a22801c65ba5677ad8e9e97936b0736f5610e9dc /gcc/testsuite | |
parent | 18787c384aba66221a157862c81238b9fea4e13d (diff) | |
download | gcc-ac39f0e831cee81e63b0d3a84d2ae6943b27ee5b.zip gcc-ac39f0e831cee81e63b0d3a84d2ae6943b27ee5b.tar.gz gcc-ac39f0e831cee81e63b0d3a84d2ae6943b27ee5b.tar.bz2 |
re PR fortran/80988 (171_swim fails)
2017-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/80988
* frontend-passes.c (traverse_io_block): Also
check for variables occurring as indices multiple
time in a single implied DO loop.
2017-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/80988
* gfortran.dg/implied_do_io_3.f90: New test.
From-SVN: r249092
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/implied_do_io_3.f90 | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 190054e..531c787 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-06-10 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/80988 + * gfortran.dg/implied_do_io_3.f90: New test. + 2017-06-10 Tom de Vries <tom@codesourcery.com> * lib/target-supports.exp (check_effective_target_signal): New proc. diff --git a/gcc/testsuite/gfortran.dg/implied_do_io_3.f90 b/gcc/testsuite/gfortran.dg/implied_do_io_3.f90 new file mode 100644 index 0000000..6ac89ac --- /dev/null +++ b/gcc/testsuite/gfortran.dg/implied_do_io_3.f90 @@ -0,0 +1,27 @@ +! { dg-do run } +! { dg-options "-ffrontend-optimize" } +! PR 80988 - implied do loops with diagonal elements +! were not written correctly +program main + implicit none + integer :: i,j,k + integer, dimension(3,3) :: a + integer, dimension(3,3,3) :: b + character(len=40) :: line + a = reshape([(((i*10+j),i=1,3),j=1,3)], shape(a)) + i = 2147483548 + write (unit=line,fmt='(10I3)') (a(i,i),i=1,3) + if (line /= ' 11 22 33') call abort + write (unit=line,fmt='(10I3)') (a(i+1,i+1),i=1,2) + if (line /= ' 22 33') call abort + do k=1,3 + do j=1,3 + do i=1,3 + b(i,j,k) = i*100 + j*10 + k + end do + end do + end do + i = -2147483548 + write (unit=line,fmt='(10I4)') ((b(i,j,i),i=1,3),j=1,3) + if (line /= ' 111 212 313 121 222 323 131 232 333') call abort +end program main |