Skip to content

Commit f20949d

Browse files
gha3migha3mi
committed
Update unit tests
1 parent 2b0b679 commit f20949d

File tree

4 files changed

+321
-0
lines changed

4 files changed

+321
-0
lines changed

‎test/test1.f90

Lines changed: 84 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -109,5 +109,89 @@ program test_matmul3
109109
C = matmul(A,B, option='m13', nblock=4)
110110
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.28')
111111

112+
113+
114+
C = matmul(A,B, option='m1', transA=.false., transB=.false.)
115+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.29')
116+
117+
C = matmul(A,B, option='m2', transA=.false., transB=.false.)
118+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.30')
119+
120+
C = matmul(A,B, option='m3', transA=.false., transB=.false.)
121+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.31')
122+
123+
C = matmul(A,B, option='m4', transA=.false., transB=.false.)
124+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.32')
125+
126+
C = matmul(A,B, option='m5', transA=.false., transB=.false.)
127+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.33')
128+
129+
C = matmul(A,B, option='m6', transA=.false., transB=.false.)
130+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.34')
131+
132+
C = matmul(A,B, option='m7', transA=.false., transB=.false.)
133+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.35')
134+
135+
C = matmul(A,B, option='m8', transA=.false., transB=.false.)
136+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.36')
137+
138+
C = matmul(A,B, option='m9', transA=.false., transB=.false.)
139+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.37')
140+
141+
! C = matmul(A,B, option='m10', transA=.false., transB=.false.)
142+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.38')
143+
144+
! C = matmul(A,B, option='m11', transA=.false., transB=.false.)
145+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.39')
146+
147+
C = matmul(A,B, option='m12', transA=.false., transB=.false.)
148+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.40')
149+
150+
C = matmul(A,B, option='m13', transA=.false., transB=.false.)
151+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.41')
152+
153+
154+
C = matmul(A,B, nblock=4, transA=.false., transB=.false.)
155+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.42')
156+
157+
C = matmul(A,B, option='m1', nblock=4, transA=.false., transB=.false.)
158+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.43')
159+
160+
C = matmul(A,B, option='m2', nblock=4, transA=.false., transB=.false.)
161+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.44')
162+
163+
C = matmul(A,B, option='m3', nblock=4, transA=.false., transB=.false.)
164+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.45')
165+
166+
C = matmul(A,B, option='m4', nblock=4, transA=.false., transB=.false.)
167+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.46')
168+
169+
C = matmul(A,B, option='m5', nblock=4, transA=.false., transB=.false.)
170+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.47')
171+
172+
C = matmul(A,B, option='m6', nblock=4, transA=.false., transB=.false.)
173+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.48')
174+
175+
C = matmul(A,B, option='m7', nblock=4, transA=.false., transB=.false.)
176+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.49')
177+
178+
C = matmul(A,B, option='m8', nblock=4, transA=.false., transB=.false.)
179+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.50')
180+
181+
C = matmul(A,B, option='m9', nblock=4, transA=.false., transB=.false.)
182+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.51')
183+
184+
! C = matmul(A,B, option='m10', nblock=4, transA=.false., transB=.false.)
185+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.52')
186+
187+
! C = matmul(A,B, option='m11', nblock=4, transA=.false., transB=.false.)
188+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.53')
189+
190+
C = matmul(A,B, option='m12', nblock=4, transA=.false., transB=.false.)
191+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.54')
192+
193+
C = matmul(A,B, option='m13', nblock=4, transA=.false., transB=.false.)
194+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul3.55')
195+
112196
end program test_matmul3
113197

‎test/test2.f90

Lines changed: 91 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -112,5 +112,96 @@ program test_matmul4
112112
C = matmul(A,B, option='m13', transA=.true., nblock=4)
113113
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.28')
114114

115+
116+
117+
118+
C = matmul(A,B, transA=.true., transB=.false.)
119+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.29')
120+
121+
C = matmul(A,B, option='m1', transA=.true., transB=.false.)
122+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.30')
123+
124+
C = matmul(A,B, option='m2', transA=.true., transB=.false.)
125+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.31')
126+
127+
C = matmul(A,B, option='m3', transA=.true., transB=.false.)
128+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.32')
129+
130+
C = matmul(A,B, option='m4', transA=.true., transB=.false.)
131+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.33')
132+
133+
C = matmul(A,B, option='m5', transA=.true., transB=.false.)
134+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.34')
135+
136+
C = matmul(A,B, option='m6', transA=.true., transB=.false.)
137+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.35')
138+
139+
C = matmul(A,B, option='m7', transA=.true., transB=.false.)
140+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.36')
141+
142+
C = matmul(A,B, option='m8', transA=.true., transB=.false.)
143+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.37')
144+
145+
C = matmul(A,B, option='m9', transA=.true., transB=.false.)
146+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.38')
147+
148+
! C = matmul(A,B, option='m10', transA=.true., transB=.false.)
149+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.39')
150+
151+
! C = matmul(A,B, option='m11', transA=.true., transB=.false.)
152+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.40')
153+
154+
C = matmul(A,B, option='m12', transA=.true., transB=.false.)
155+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.41')
156+
157+
C = matmul(A,B, option='m13', transA=.true., transB=.false.)
158+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.42')
159+
160+
161+
162+
163+
164+
C = matmul(A,B, transA=.true., transB=.false., nblock=4)
165+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.43')
166+
167+
C = matmul(A,B, option='m1', transA=.true., transB=.false., nblock=4)
168+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.44')
169+
170+
C = matmul(A,B, option='m2', transA=.true., transB=.false., nblock=4)
171+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.45')
172+
173+
C = matmul(A,B, option='m3', transA=.true., transB=.false., nblock=4)
174+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.46')
175+
176+
C = matmul(A,B, option='m4', transA=.true., transB=.false., nblock=4)
177+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.47')
178+
179+
C = matmul(A,B, option='m5', transA=.true., transB=.false., nblock=4)
180+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.48')
181+
182+
C = matmul(A,B, option='m6', transA=.true., transB=.false., nblock=4)
183+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.49')
184+
185+
C = matmul(A,B, option='m7', transA=.true., transB=.false., nblock=4)
186+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.50')
187+
188+
C = matmul(A,B, option='m8', transA=.true., transB=.false., nblock=4)
189+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.51')
190+
191+
C = matmul(A,B, option='m9', transA=.true., transB=.false., nblock=4)
192+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.52')
193+
194+
! C = matmul(A,B, option='m10', transA=.true., transB=.false., nblock=4)
195+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.53')
196+
197+
! C = matmul(A,B, option='m11', transA=.true., transB=.false., nblock=4)
198+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.54')
199+
200+
C = matmul(A,B, option='m12', transA=.true., transB=.false., nblock=4)
201+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.55')
202+
203+
C = matmul(A,B, option='m13', transA=.true., transB=.false., nblock=4)
204+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul4.56')
205+
115206
end program test_matmul4
116207

‎test/test3.f90

Lines changed: 90 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -111,5 +111,95 @@ program test_matmul5
111111
C = matmul(A,B, option='m13', transB=.true., nblock=4)
112112
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.28')
113113

114+
115+
116+
117+
C = matmul(A,B, transA=.false., transB=.true.)
118+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.29')
119+
120+
C = matmul(A,B, option='m1', transA=.false., transB=.true.)
121+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.30')
122+
123+
C = matmul(A,B, option='m2', transA=.false., transB=.true.)
124+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.31')
125+
126+
C = matmul(A,B, option='m3', transA=.false., transB=.true.)
127+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.32')
128+
129+
C = matmul(A,B, option='m4', transA=.false., transB=.true.)
130+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.33')
131+
132+
C = matmul(A,B, option='m5', transA=.false., transB=.true.)
133+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.34')
134+
135+
C = matmul(A,B, option='m6', transA=.false., transB=.true.)
136+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.35')
137+
138+
C = matmul(A,B, option='m7', transA=.false., transB=.true.)
139+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.36')
140+
141+
C = matmul(A,B, option='m8', transA=.false., transB=.true.)
142+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.37')
143+
144+
C = matmul(A,B, option='m9', transA=.false., transB=.true.)
145+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.38')
146+
147+
! C = matmul(A,B, option='m10', transA=.false., transB=.true.)
148+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.39')
149+
150+
! C = matmul(A,B, option='m11', transA=.false., transB=.true.)
151+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.40')
152+
153+
C = matmul(A,B, option='m12', transA=.false., transB=.true.)
154+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.41')
155+
156+
C = matmul(A,B, option='m13', transA=.false., transB=.true.)
157+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.42')
158+
159+
160+
161+
162+
C = matmul(A,B, transA=.false., transB=.true., nblock=4)
163+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.43')
164+
165+
C = matmul(A,B, option='m1', transA=.false., transB=.true., nblock=4)
166+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.44')
167+
168+
C = matmul(A,B, option='m2', transA=.false., transB=.true., nblock=4)
169+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.45')
170+
171+
C = matmul(A,B, option='m3', transA=.false., transB=.true., nblock=4)
172+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.46')
173+
174+
C = matmul(A,B, option='m4', transA=.false., transB=.true., nblock=4)
175+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.47')
176+
177+
C = matmul(A,B, option='m5', transA=.false., transB=.true., nblock=4)
178+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.48')
179+
180+
C = matmul(A,B, option='m6', transA=.false., transB=.true., nblock=4)
181+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.49')
182+
183+
C = matmul(A,B, option='m7', transA=.false., transB=.true., nblock=4)
184+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.50')
185+
186+
C = matmul(A,B, option='m8', transA=.false., transB=.true., nblock=4)
187+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.51')
188+
189+
C = matmul(A,B, option='m9', transA=.false., transB=.true., nblock=4)
190+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.52')
191+
192+
! C = matmul(A,B, option='m10', transA=.false., transB=.true., nblock=4)
193+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.53')
194+
195+
! C = matmul(A,B, option='m11', transA=.false., transB=.true., nblock=4)
196+
! call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.54')
197+
198+
C = matmul(A,B, option='m12', transA=.false., transB=.true., nblock=4)
199+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.55')
200+
201+
C = matmul(A,B, option='m13', transA=.false., transB=.true., nblock=4)
202+
call ut%check(C, C_ref, tol=1e-5_rk, msg='test_matmul5.56')
203+
114204
end program test_matmul5
115205

‎test/test5.f90

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -81,5 +81,61 @@ program test_matmul7
8181
! w = matmul(A,v, option='m8', nblock=4)
8282
! call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.18')
8383

84+
85+
86+
w = matmul(A,v, option='m1', transA=.false.)
87+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.19')
88+
89+
w = matmul(A,v, option='m2', transA=.false.)
90+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.20')
91+
92+
w = matmul(A,v, option='m3', transA=.false.)
93+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.21')
94+
95+
w = matmul(A,v, option='m4', transA=.false.)
96+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.22')
97+
98+
w = matmul(A,v, option='m5', transA=.false.)
99+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.23')
100+
101+
w = matmul(A,v, option='m6', transA=.false.)
102+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.24')
103+
104+
! w = matmul(A,v, option='m7', transA=.false.)
105+
! call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.25')
106+
107+
! w = matmul(A,v, option='m8', transA=.false.)
108+
! call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.26')
109+
110+
111+
112+
113+
w = matmul(A,v, nblock=4, transA=.false.)
114+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.27')
115+
116+
w = matmul(A,v, option='m1', nblock=4, transA=.false.)
117+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.28')
118+
119+
w = matmul(A,v, option='m2', nblock=4, transA=.false.)
120+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.29')
121+
122+
w = matmul(A,v, option='m3', nblock=4, transA=.false.)
123+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.30')
124+
125+
w = matmul(A,v, option='m4', nblock=4, transA=.false.)
126+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.31')
127+
128+
w = matmul(A,v, option='m5', nblock=4, transA=.false.)
129+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.32')
130+
131+
w = matmul(A,v, option='m6', nblock=4, transA=.false.)
132+
call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.33')
133+
134+
! w = matmul(A,v, option='m7', nblock=4, transA=.false.)
135+
! call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.34')
136+
137+
! w = matmul(A,v, option='m8', nblock=4, transA=.false.)
138+
! call ut%check(w, w_ref, tol=1e-5_rk, msg='test_matmul7.35')
139+
84140
end program test_matmul7
85141

0 commit comments

Comments
 (0)