1! { dg-do  run }
2program main
3  implicit none
4  integer :: i,n1, n2, n3
5  integer, parameter :: a(3) = [1,2,3]
6  integer, parameter :: b1(3) = eoshift(a,0)
7  integer, parameter :: b2(3) = eoshift(a,1)
8  integer, parameter :: b3(3) = eoshift(a,-2)
9  integer, parameter :: b4(3) = eoshift(a,4,boundary=42)
10  integer, parameter :: c(3,3) = reshape([(i,i=1,3*3)],shape(c))
11  integer, parameter :: b5(3,3) = eoshift(c,shift=1,dim=1,boundary=33)
12  integer, parameter :: b6(3,3) = eoshift(c,shift=2,dim=1)
13  integer, parameter :: b7(3,3) = eoshift(c,shift=-1,dim=2)
14  integer, parameter :: b8(3,3) = eoshift(c,shift=-1,dim=2,boundary=[-1,-2,-3])
15  integer, parameter :: b9(3,3) = eoshift(c,shift=[-1,-1,-1])
16  integer, parameter :: b10(3,3) = eoshift(c,shift=[-1,0,1]);
17  integer, parameter :: b11(3,3) = eoshift(c,dim=2,shift=[-2,-1,1],boundary=42);
18  integer, parameter :: b12(3,3) = eoshift(c,dim=1,shift=[-1,-2,0],boundary=[-3,-7,-9])
19  real, parameter :: r(3,4,5) = reshape([(1.0*i**2,i=1,3*4*5)],shape(r))
20  real, parameter :: q1(3,4,5) = eoshift(r,shift=1,dim=3)
21  integer, parameter :: sh1(3,4) = reshape([-1,-2,0,3,2,5,6,-6,3,1,-1,-5],shape(sh1))
22  real, parameter :: bnd1(3,4) = reshape([-1.,-2.,-3.,-4.,-5.,-6.,-7.,-8.,-9.,-10.,-11.,-12.],shape(bnd1))
23  real, parameter :: q2(3,4,5) = eoshift(r,dim=3,shift=sh1)
24  real, parameter :: q3(3,4,5) = eoshift(r,dim=3,shift=sh1,boundary=bnd1)
25  complex(kind=8), parameter :: s(3,3) = reshape([(cmplx(i*i-5*i,-i+4,kind=8),i=1,9)],shape(s))
26  complex(kind=8), parameter :: t(3,3) = eoshift(s,shift=4)
27  character(len=3), parameter :: e(2,3,4) = reshape([(repeat(achar(i),3),i=iachar('a'),iachar('a')+2*3*4-1)], &
28       shape(e))
29  character(len=3) :: e2(2,3,4)
30  character(len=3), parameter :: f1(2,3,4) = eoshift(e,1)
31  character(len=3), parameter :: bnd2(2,4) = reshape([(repeat(achar(i),3),i=iachar('A'),iachar('A')+2*4-1)], &
32       shape(bnd2))
33  character(len=3), parameter :: f2(2,3,4) = eoshift(e,dim=2,shift=-1,boundary=bnd2);
34  integer, parameter :: sh2(2,3) = reshape([1, -2, 0, 1, 2, -1, 2, 0],shape(sh2))
35  character(len=3), parameter :: f3(2,3,4) = eoshift(e,dim=3,shift=sh2)
36  integer, parameter :: empty(1:0) =[integer ::]
37  integer, parameter :: empty2(1:0) = eoshift(empty,1)
38
39  n1 = 1
40  n2 = 2
41  n3 = 3
42
43  if (any(b1 /= a)) STOP 1
44  if (any(b2 /= [2, 3, 0])) STOP 2
45  if (any(b3 /= [0, 0, 1])) STOP 3
46  if (any(b4 /= 42)) STOP 4
47  if (any(eoshift(c,shift=1,dim=n1,boundary=33) /= b5)) STOP 5
48  if (any(eoshift(c,shift=2,dim=1) /= b6)) STOP 6
49  if (any(eoshift(c,shift=-1,dim=2) /= b7)) STOP 7
50  if (any(eoshift(c,shift=-1,dim=n2,boundary=[-1,-2,-3]) /= b8)) STOP 8
51  if (any(eoshift(c,shift=-1) /= b9)) STOP 9
52  if (any(eoshift(r,shift=1,dim=n3) /= q1)) STOP 10
53  if (any(b10 /= reshape([ 0, 1, 2, 4, 5, 6, 8, 9, 0],shape(b10)))) STOP 11
54  if (any(b11 /= reshape([42, 42,  6, 42,  2,  9,  1,  5, 42],shape(b11)))) STOP 12
55  if (any(b12 /= reshape([ -3,  1,  2, -7, -7,  4,  7,  8,  9],shape(b11)))) STOP 13
56  if (any(q1 /= reshape([169.,196.,225.,256.,289.,324.,361.,400.,441.,484.,529.,576.,625.,&
57          676.,729.,784.,841.,900.,961.,1024.,1089.,1156.,1225.,1296.,1369.,1444.,1521.,&
58          1600.,1681.,1764.,1849.,1936.,2025.,2116.,2209.,2304.,2401.,2500.,2601.,2704.,&
59          2809.,2916.,3025.,3136.,3249.,3364.,3481.,3600.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.],&
60          shape(q1)))) STOP 14
61  if (any(q2 /= reshape([0.,0.,9.,1600.,841.,0.,0.,0.,2025.,484.,0.,0.,1.,0.,225.,2704.,&
62          1681.,0.,0.,0.,3249.,1156.,121.,0.,169.,4.,729.,0.,2809.,0.,0.,0.,0.,2116.,&
63          529.,0.,625.,196.,1521.,0.,0.,0.,0.,0.,0.,3364.,1225.,0.,1369.,676.,2601.,&
64          0.,0.,0.,0.,0.,0.,0.,2209.,0.],shape(q2)))) STOP 15
65  if (any(q3 /= reshape([-1.,-2.,9.,1600.,841.,-6.,-7.,-8.,2025.,484.,-11.,-12.,1.,&
66          -2.,225.,2704.,1681.,-6.,-7.,-8.,3249.,1156.,121.,-12.,169.,4.,729.,-4.,&
67          2809.,-6.,-7.,-8.,-9.,2116.,529.,-12.,625.,196.,1521.,-4.,-5.,-6.,-7.,-8.,&
68          -9.,3364.,1225.,-12.,1369.,676.,2601.,-4.,-5.,-6.,-7.,-8.,-9.,-10.,2209.,-12.],&
69          shape(q3)))) STOP 16
70  if (any(f1 /= reshape(["bbb","   ","ddd","   ","fff","   ","hhh","   ","jjj","   ","lll","   ",&
71       "nnn","   ","ppp","   ","rrr","   ","ttt","   ","vvv","   ","xxx","   "], &
72       shape(f1)))) STOP 17
73  if (any(f2 /= reshape(["AAA","BBB","aaa","bbb","ccc","ddd","CCC","DDD","ggg","hhh","iii","jjj",&
74       "EEE","FFF","mmm","nnn","ooo","ppp","GGG","HHH","sss","ttt","uuu","vvv"],shape(f2)))) STOP 18
75
76  e2 = e
77  if (any (f2 /= eoshift(e2,dim=2,shift=-1,boundary=bnd2))) STOP 19
78  if (any (f3 /= reshape (["ggg","   ","ccc","jjj","qqq","   ","mmm","   ","iii","ppp",&
79       "www","fff","sss","bbb","ooo","vvv","   ","lll","   ","hhh","uuu",&
80       "   ","   ","rrr"], shape(f3)))) STOP 20
81  if (size(empty) /=0) STOP 21
82  if (any(t /= (0.0_8, 0.0_8))) STOP 22
83end program main
84