gcc/testsuite/gfortran.dg/simplify_eoshift_1.f90

   1 ! { dg-do  run }
   2 program 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
  83 end program main