2 // { dg-options "-std=c++14 -O2 -ftemplate-depth=1000000" }
4 template <class T, int Dim0, int Dim1, int Dim2> struct Tensor3;
5 template <class A, class T, int Dim0, int Dim1, int Dim2, char i, char j,
9 template <class T, int Dim0, int Dim1, int Dim2, int Dim3> struct Tensor4;
10 template <class A, class T, int Dim0, int Dim1, int Dim2, int Dim3, char i,
11 char j, char k, char l>
14 template <char i, int Dim> struct Index
16 template <const int N> struct Number
19 operator int() const { return N; }
22 template <class T, int Tensor_Dim0, int Tensor_Dim1, int Tensor_Dim2>
25 T data[Tensor_Dim0][Tensor_Dim1][Tensor_Dim2];
27 T operator()(const int N1, const int N2, const int N3) const
29 return data[N1][N2][N3];
32 template <char i, char j, char k, int Dim0, int Dim1, int Dim2>
33 Tensor3_Expr<const Tensor3<T, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2>, T,
34 Dim0, Dim1, Dim2, i, j, k>
35 operator()(const Index<i, Dim0>, const Index<j, Dim1>,
36 const Index<k, Dim2>) const
38 return Tensor3_Expr<const Tensor3<T, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2>,
39 T, Dim0, Dim1, Dim2, i, j, k>(*this);
43 template <class A, class T, int Dim0, int Dim1, int Dim2, char i, char j,
49 Tensor3_Expr(const A &a) : iter(a) {}
50 T operator()(const int N1, const int N2, const int N3) const
52 return iter(N1, N2, N3);
56 template <class A, class T, int Tensor_Dim0, int Tensor_Dim1, int Tensor_Dim2,
57 int Dim0, int Dim1, int Dim2, char i, char j, char k>
58 struct Tensor3_Expr<Tensor3<A, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2>, T, Dim0,
61 Tensor3<A, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2> &iter;
63 Tensor3_Expr(Tensor3<A, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2> &a) : iter(a)
65 T operator()(const int N1, const int N2, const int N3) const
67 return iter(N1, N2, N3);
71 template <class A, class B, class T, class U, int Dim0, int Dim1, int Dim23,
72 int Dim4, int Dim5, char i, char j, char k, char l, char m>
73 struct Tensor3_times_Tensor3_21
75 Tensor3_Expr<A, T, Dim0, Dim1, Dim23, i, j, k> iterA;
76 Tensor3_Expr<B, U, Dim23, Dim4, Dim5, k, l, m> iterB;
78 template <int CurrentDim>
79 T eval(const int N1, const int N2, const int N3, const int N4,
80 const Number<CurrentDim> &) const
82 return iterA(N1, N2, CurrentDim - 1) * iterB(CurrentDim - 1, N3, N4)
83 + eval(N1, N2, N3, N4, Number<CurrentDim - 1>());
85 T eval(const int N1, const int N2, const int N3, const int N4,
86 const Number<1> &) const
88 return iterA(N1, N2, 0) * iterB(0, N3, N4);
91 Tensor3_times_Tensor3_21(
92 const Tensor3_Expr<A, T, Dim0, Dim1, Dim23, i, j, k> &a,
93 const Tensor3_Expr<B, U, Dim23, Dim4, Dim5, k, l, m> &b)
96 T operator()(const int &N1, const int &N2, const int &N3,
99 return eval(N1, N2, N3, N4, Number<Dim23>());
103 template <class A, class B, class T, class U, int Dim0, int Dim1, int Dim23,
104 int Dim4, int Dim5, char i, char j, char k, char l, char m>
105 Tensor4_Expr<Tensor3_times_Tensor3_21<A, B, T, U, Dim0, Dim1, Dim23, Dim4,
106 Dim5, i, j, k, l, m>,
107 T, Dim0, Dim1, Dim4, Dim5, i, j, l, m>
108 operator*(const Tensor3_Expr<A, T, Dim0, Dim1, Dim23, i, j, k> &a,
109 const Tensor3_Expr<B, U, Dim23, Dim4, Dim5, k, l, m> &b)
111 using TensorExpr = Tensor3_times_Tensor3_21<A, B, T, U, Dim0, Dim1, Dim23,
112 Dim4, Dim5, i, j, k, l, m>;
113 return Tensor4_Expr<TensorExpr, T, Dim0, Dim1, Dim4, Dim5, i, j, l, m>(
117 template <class T, int Tensor_Dim0, int Tensor_Dim1, int Tensor_Dim2,
121 T data[Tensor_Dim0][Tensor_Dim1][Tensor_Dim2][Tensor_Dim3];
124 T &operator()(const int N1, const int N2, const int N3, const int N4)
126 return data[N1][N2][N3][N4];
129 template <char i, char j, char k, char l, int Dim0, int Dim1, int Dim2,
131 Tensor4_Expr<Tensor4<T, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2, Tensor_Dim3>,
132 T, Dim0, Dim1, Dim2, Dim3, i, j, k, l>
133 operator()(const Index<i, Dim0>, const Index<j, Dim1>, const Index<k, Dim2>,
134 const Index<l, Dim3>)
137 Tensor4<T, Tensor_Dim0, Tensor_Dim1, Tensor_Dim2, Tensor_Dim3>, T, Dim0,
138 Dim1, Dim2, Dim3, i, j, k, l>(*this);
142 template <class A, class T, int Dim0, int Dim1, int Dim2, int Dim3, char i,
143 char j, char k, char l>
148 Tensor4_Expr(const A &a) : iter(a) {}
149 T operator()(const int N1, const int N2, const int N3, const int N4) const
151 return iter(N1, N2, N3, N4);
155 template <class A, class T, int Dim0, int Dim1, int Dim2, int Dim3, char i,
156 char j, char k, char l>
157 struct Tensor4_Expr<Tensor4<A, Dim0, Dim1, Dim2, Dim3>, T, Dim0, Dim1, Dim2,
160 Tensor4<A, Dim0, Dim1, Dim2, Dim3> &iter;
162 Tensor4_Expr(Tensor4<A, Dim0, Dim1, Dim2, Dim3> &a) : iter(a) {}
163 T operator()(const int N1, const int N2, const int N3, const int N4) const
165 return iter(N1, N2, N3, N4);
168 template <class B, class U, int Dim1_0, int Dim1_1, int Dim1_2, int Dim1_3,
169 char i_1, char j_1, char k_1, char l_1>
170 auto &operator=(const Tensor4_Expr<B, U, Dim1_0, Dim1_1, Dim1_2, Dim1_3, i_1,
173 for(int ii = 0; ii < Dim0; ++ii)
174 for(int jj = 0; jj < Dim1; ++jj)
175 for(int kk = 0; kk < Dim2; ++kk)
176 for(int ll = 0; ll < Dim3; ++ll)
178 iter(ii, jj, kk, ll) = rhs(ii, jj, kk, ll);
186 Tensor3<float, 100, 100, 1000> t1;
187 Tensor3<float, 1000, 100, 100> t2;
195 Tensor4<float, 100, 100, 100, 100> res;
196 res(l, m, n, o) = t1(l, m, k) * t2(k, n, o);