2 ! PR 22143: We didn' have shift arguments to eoshift of kind=1
6 integer, dimension (3,3) :: a, b, w
7 integer(kind=2), dimension (3) :: sh2
8 integer(kind=1), dimension (3) :: sh1
9 integer, dimension(3) :: bo
12 a = reshape((/(i,i=1,9)/),shape(a))
15 bo = (/-999, -99, -9 /)
16 b = cshift(a, shift=sh1)
18 b = cshift(a, shift=sh2)
21 b = eoshift(a, shift=sh1)
23 b = eoshift(a, shift=sh1, boundary=bo)
25 b = eoshift(a, shift=sh2)
27 b = eoshift(a, shift=sh2, boundary=bo)
33 ! Do nothing but confuse the optimizer into not removing the
35 integer, dimension(3,3) :: b