[Bug libfortran/22142] New: eoshift: boundary not filled in correctly

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Another corner case of eoshift that's not correct...
in eoshift3, this time.

$ cat eoshift.f90
program main
  implicit none
  integer, dimension (3,3) :: a, b, w
  integer, dimension (3) :: bo, sh
  integer :: i,j

  a = reshape((/(i,i=1,9)/),shape(a))
  sh = (/ 3, -1, -3 /)
  bo = (/-999, -99, -9 /)
  b = eoshift(a, shift=sh, boundary=bo)
  w = reshape((/ -999, -999, -999, -99, 4, 5, -9, -9, -9 /), shape(b))
  do j=1,3
    do i=1,3
      if (w(i,j) /= b(i,j)) print *,i,j,w(i,j),b(i,j)
    end do
  end do
end program main
$ gfortran eoshift.f90
$ ./a.out
           1           2         -99 -1644167172
           1           3          -9    -6422529
           2           3          -9    -6422529
           3           3          -9    -6422529
$ gfortran -v
Using built-in specs.
Target: ia64-unknown-linux-gnu
Configured with: ../gcc-4.1-20050618/configure --prefix=/home/zfkts --enable-
languages=c,f95
Thread model: posix
gcc version 4.1.0 20050618 (experimental)
$ nm a.out | grep eoshift
                 U _gfortran_eoshift3_4

-- 
           Summary: eoshift: boundary not filled in correctly
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22142