Skip to content

Commit 8571780

Browse files
grisuthedragongrisuthedragon
committed
Working error tests on cblas_cgemmtr
1 parent 63d2b3a commit 8571780

File tree

2 files changed

+104
-97
lines changed

2 files changed

+104
-97
lines changed

‎CBLAS/testing/c_c3chke.c‎

Lines changed: 95 additions & 93 deletions
Original file line numberDiff line numberDiff line change
@@ -55,235 +55,238 @@ void F77_c3chke(char * rout
5555
}
5656
#endif
5757

58-
if (strncmp( sf,"cblas_cgemm" ,11)==0) {
59-
cblas_rout = "cblas_cgemm" ;
58+
if (strncmp( sf,"cblas_cgemmtr" ,13)==0) {
59+
cblas_rout = "cblas_cgemmtr" ;
6060

6161
cblas_info = 1;
62-
cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
62+
cblas_cgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0,
6363
ALPHA, A, 1, B, 1, BETA, C, 1 );
6464
chkxer();
6565
cblas_info = 1;
66-
cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
66+
cblas_cgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0,
6767
ALPHA, A, 1, B, 1, BETA, C, 1 );
6868
chkxer();
6969
cblas_info = 1;
70-
cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
70+
cblas_cgemmtr( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0,
7171
ALPHA, A, 1, B, 1, BETA, C, 1 );
7272
chkxer();
7373
cblas_info = 1;
74-
cblas_cgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
74+
cblas_cgemmtr( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0,
7575
ALPHA, A, 1, B, 1, BETA, C, 1 );
7676
chkxer();
77-
cblas_info = 2; RowMajorStrg = FALSE;
78-
cblas_cgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
77+
78+
cblas_info = 1;
79+
cblas_cgemmtr( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0,
7980
ALPHA, A, 1, B, 1, BETA, C, 1 );
8081
chkxer();
81-
cblas_info = 2; RowMajorStrg = FALSE;
82-
cblas_cgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
82+
cblas_info = 1;
83+
cblas_cgemmtr( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0,
8384
ALPHA, A, 1, B, 1, BETA, C, 1 );
8485
chkxer();
85-
cblas_info = 3; RowMajorStrg = FALSE;
86-
cblas_cgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
86+
cblas_info = 1;
87+
cblas_cgemmtr( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0,
8788
ALPHA, A, 1, B, 1, BETA, C, 1 );
8889
chkxer();
89-
cblas_info = 3; RowMajorStrg = FALSE;
90-
cblas_cgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
90+
cblas_info = 1;
91+
cblas_cgemmtr( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0,
9192
ALPHA, A, 1, B, 1, BETA, C, 1 );
9293
chkxer();
93-
cblas_info = 4; RowMajorStrg = FALSE;
94-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
94+
95+
cblas_info = 2; RowMajorStrg = FALSE;
96+
cblas_cgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0,
9597
ALPHA, A, 1, B, 1, BETA, C, 1 );
9698
chkxer();
97-
cblas_info = 4; RowMajorStrg = FALSE;
98-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
99+
cblas_info = 2; RowMajorStrg = FALSE;
100+
cblas_cgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0,
101+
ALPHA, A, 1, B, 1, BETA, C, 1 );
102+
chkxer();
103+
104+
cblas_info = 3; RowMajorStrg = FALSE;
105+
cblas_cgemmtr( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0,
106+
ALPHA, A, 1, B, 1, BETA, C, 1 );
107+
chkxer();
108+
cblas_info = 3; RowMajorStrg = FALSE;
109+
cblas_cgemmtr( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0,
99110
ALPHA, A, 1, B, 1, BETA, C, 1 );
100111
chkxer();
112+
101113
cblas_info = 4; RowMajorStrg = FALSE;
102-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
114+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0,
103115
ALPHA, A, 1, B, 1, BETA, C, 1 );
104116
chkxer();
105117
cblas_info = 4; RowMajorStrg = FALSE;
106-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
118+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0,
107119
ALPHA, A, 1, B, 1, BETA, C, 1 );
108120
chkxer();
121+
122+
109123
cblas_info = 5; RowMajorStrg = FALSE;
110-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
124+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
111125
ALPHA, A, 1, B, 1, BETA, C, 1 );
112126
chkxer();
113127
cblas_info = 5; RowMajorStrg = FALSE;
114-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
128+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0,
115129
ALPHA, A, 1, B, 1, BETA, C, 1 );
116130
chkxer();
117131
cblas_info = 5; RowMajorStrg = FALSE;
118-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
132+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0,
119133
ALPHA, A, 1, B, 1, BETA, C, 1 );
120134
chkxer();
121135
cblas_info = 5; RowMajorStrg = FALSE;
122-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
136+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0,
123137
ALPHA, A, 1, B, 1, BETA, C, 1 );
124138
chkxer();
139+
125140
cblas_info = 6; RowMajorStrg = FALSE;
126-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
141+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID,
127142
ALPHA, A, 1, B, 1, BETA, C, 1 );
128143
chkxer();
129144
cblas_info = 6; RowMajorStrg = FALSE;
130-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
145+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID,
131146
ALPHA, A, 1, B, 1, BETA, C, 1 );
132147
chkxer();
133148
cblas_info = 6; RowMajorStrg = FALSE;
134-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
149+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID,
135150
ALPHA, A, 1, B, 1, BETA, C, 1 );
136151
chkxer();
137152
cblas_info = 6; RowMajorStrg = FALSE;
138-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
153+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID,
139154
ALPHA, A, 1, B, 1, BETA, C, 1 );
140155
chkxer();
156+
157+
141158
cblas_info = 9; RowMajorStrg = FALSE;
142-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
159+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
143160
ALPHA, A, 1, B, 1, BETA, C, 2 );
144161
chkxer();
145162
cblas_info = 9; RowMajorStrg = FALSE;
146-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
163+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
147164
ALPHA, A, 1, B, 1, BETA, C, 2 );
148165
chkxer();
149166
cblas_info = 9; RowMajorStrg = FALSE;
150-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
167+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
151168
ALPHA, A, 1, B, 2, BETA, C, 1 );
152169
chkxer();
153170
cblas_info = 9; RowMajorStrg = FALSE;
154-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
171+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
155172
ALPHA, A, 1, B, 1, BETA, C, 1 );
156173
chkxer();
174+
157175
cblas_info = 11; RowMajorStrg = FALSE;
158-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
176+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
159177
ALPHA, A, 1, B, 1, BETA, C, 1 );
160178
chkxer();
161179
cblas_info = 11; RowMajorStrg = FALSE;
162-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
180+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
163181
ALPHA, A, 2, B, 1, BETA, C, 1 );
164182
chkxer();
165183
cblas_info = 11; RowMajorStrg = FALSE;
166-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
167-
ALPHA, A, 1, B, 1, BETA, C, 1 );
168-
chkxer();
169-
cblas_info = 11; RowMajorStrg = FALSE;
170-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
184+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
171185
ALPHA, A, 1, B, 1, BETA, C, 1 );
172186
chkxer();
187+
173188
cblas_info = 14; RowMajorStrg = FALSE;
174-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
189+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
175190
ALPHA, A, 2, B, 1, BETA, C, 1 );
176191
chkxer();
177192
cblas_info = 14; RowMajorStrg = FALSE;
178-
cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
179-
ALPHA, A, 2, B, 1, BETA, C, 1 );
193+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
194+
ALPHA, A, 2, B, 2, BETA, C, 1 );
180195
chkxer();
196+
181197
cblas_info = 14; RowMajorStrg = FALSE;
182-
cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
183-
ALPHA, A, 1, B, 1, BETA, C, 1 );
198+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
199+
ALPHA, A, 2, B, 1, BETA, C, 1 );
184200
chkxer();
185201
cblas_info = 14; RowMajorStrg = FALSE;
186-
cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
187-
ALPHA, A, 1, B, 1, BETA, C, 1 );
188-
chkxer();
189-
cblas_info = 4; RowMajorStrg = TRUE;
190-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
191-
ALPHA, A, 1, B, 1, BETA, C, 1 );
192-
chkxer();
193-
cblas_info = 4; RowMajorStrg = TRUE;
194-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
195-
ALPHA, A, 1, B, 1, BETA, C, 1 );
196-
chkxer();
197-
cblas_info = 4; RowMajorStrg = TRUE;
198-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
199-
ALPHA, A, 1, B, 1, BETA, C, 1 );
200-
chkxer();
201-
cblas_info = 4; RowMajorStrg = TRUE;
202-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
203-
ALPHA, A, 1, B, 1, BETA, C, 1 );
202+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
203+
ALPHA, A, 2, B, 2, BETA, C, 1 );
204204
chkxer();
205+
206+
/* Row Major */
205207
cblas_info = 5; RowMajorStrg = TRUE;
206-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
208+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
207209
ALPHA, A, 1, B, 1, BETA, C, 1 );
208210
chkxer();
209211
cblas_info = 5; RowMajorStrg = TRUE;
210-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
212+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0,
211213
ALPHA, A, 1, B, 1, BETA, C, 1 );
212214
chkxer();
213215
cblas_info = 5; RowMajorStrg = TRUE;
214-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
216+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0,
215217
ALPHA, A, 1, B, 1, BETA, C, 1 );
216218
chkxer();
217219
cblas_info = 5; RowMajorStrg = TRUE;
218-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
220+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0,
219221
ALPHA, A, 1, B, 1, BETA, C, 1 );
220222
chkxer();
223+
221224
cblas_info = 6; RowMajorStrg = TRUE;
222-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
225+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID,
223226
ALPHA, A, 1, B, 1, BETA, C, 1 );
224227
chkxer();
225228
cblas_info = 6; RowMajorStrg = TRUE;
226-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
229+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID,
227230
ALPHA, A, 1, B, 1, BETA, C, 1 );
228231
chkxer();
229232
cblas_info = 6; RowMajorStrg = TRUE;
230-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
233+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID,
231234
ALPHA, A, 1, B, 1, BETA, C, 1 );
232235
chkxer();
233236
cblas_info = 6; RowMajorStrg = TRUE;
234-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
237+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID,
235238
ALPHA, A, 1, B, 1, BETA, C, 1 );
236239
chkxer();
240+
237241
cblas_info = 9; RowMajorStrg = TRUE;
238-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
242+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
239243
ALPHA, A, 1, B, 1, BETA, C, 2 );
240244
chkxer();
241245
cblas_info = 9; RowMajorStrg = TRUE;
242-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
246+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
243247
ALPHA, A, 1, B, 2, BETA, C, 2 );
244248
chkxer();
245249
cblas_info = 9; RowMajorStrg = TRUE;
246-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
250+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
247251
ALPHA, A, 1, B, 2, BETA, C, 1 );
248252
chkxer();
249253
cblas_info = 9; RowMajorStrg = TRUE;
250-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
254+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
251255
ALPHA, A, 1, B, 1, BETA, C, 1 );
252256
chkxer();
257+
253258
cblas_info = 11; RowMajorStrg = TRUE;
254-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
259+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
255260
ALPHA, A, 1, B, 1, BETA, C, 1 );
256261
chkxer();
257262
cblas_info = 11; RowMajorStrg = TRUE;
258-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
259-
ALPHA, A, 2, B, 1, BETA, C, 1 );
260-
chkxer();
261-
cblas_info = 11; RowMajorStrg = TRUE;
262-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
263+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
263264
ALPHA, A, 2, B, 1, BETA, C, 1 );
264265
chkxer();
265266
cblas_info = 11; RowMajorStrg = TRUE;
266-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
267+
cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
267268
ALPHA, A, 1, B, 1, BETA, C, 1 );
268269
chkxer();
270+
269271
cblas_info = 14; RowMajorStrg = TRUE;
270-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
271-
ALPHA, A, 1, B, 2, BETA, C, 1 );
272+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
273+
ALPHA, A, 2, B, 2, BETA, C, 1 );
272274
chkxer();
273275
cblas_info = 14; RowMajorStrg = TRUE;
274-
cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
275-
ALPHA, A, 1, B, 1, BETA, C, 1 );
276+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
277+
ALPHA, A, 2, B, 1, BETA, C, 1 );
276278
chkxer();
277279
cblas_info = 14; RowMajorStrg = TRUE;
278-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
279-
ALPHA, A, 1, B, 2, BETA, C, 1 );
280+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
281+
ALPHA, A, 2, B, 2, BETA, C, 1 );
280282
chkxer();
281283
cblas_info = 14; RowMajorStrg = TRUE;
282-
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
283-
ALPHA, A, 1, B, 1, BETA, C, 1 );
284+
cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
285+
ALPHA, A, 2, B, 2, BETA, C, 1 );
284286
chkxer();
285-
} else if (strncmp( sf,"cblas_cgemmtr" ,12)==0) {
286-
cblas_rout = "cblas_cgemmtr" ;
287+
288+
} else if (strncmp( sf,"cblas_cgemm" ,11)==0) {
289+
cblas_rout = "cblas_cgemm" ;
287290

288291
cblas_info = 1;
289292
cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
@@ -509,7 +512,6 @@ void F77_c3chke(char * rout
509512
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
510513
ALPHA, A, 1, B, 1, BETA, C, 1 );
511514
chkxer();
512-
513515
} else if (strncmp( sf,"cblas_chemm" ,11)==0) {
514516
cblas_rout = "cblas_chemm" ;
515517

@@ -1937,7 +1939,7 @@ void F77_c3chke(char * rout
19371939
}
19381940

19391941
if (cblas_ok == 1 )
1940-
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1942+
printf(" %-13s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
19411943
else
19421944
printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
19431945
}

‎CBLAS/testing/c_xerbla.c‎

Lines changed: 9 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -33,13 +33,18 @@ void cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...)
3333
* for A and B, lda is in position 11 instead of 9, and ldb is in
3434
* position 9 instead of 11.
3535
*/
36-
if (strstr(rout,"gemm") != 0)
36+
if (strstr(rout,"gemm") != 0 && strstr(rout, "gemmtr") == 0)
3737
{
3838
if (info == 5 ) info = 4;
3939
else if (info == 4 ) info = 5;
4040
else if (info == 11) info = 9;
4141
else if (info == 9 ) info = 11;
42+
} else if (strstr(rout, "gemmtr") != 0)
43+
{
44+
if (info == 11) info = 9;
45+
else if (info == 9 ) info = 11;
4246
}
47+
4348
else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0)
4449
{
4550
if (info == 5 ) info = 4;
@@ -98,7 +103,7 @@ void F77_xerbla(char *srname, void *vinfo
98103
char *srname;
99104
#endif
100105

101-
char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'};
106+
char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0', '\0'};
102107

103108
#ifdef F77_Integer
104109
F77_Integer *info=vinfo;
@@ -119,8 +124,8 @@ void F77_xerbla(char *srname, void *vinfo
119124
link_xerbla = 0;
120125
return;
121126
}
122-
for(i=0; i < 6; i++) rout[i+6] = tolower(srname[i]);
123-
for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
127+
for(i=0; i < 7; i++) rout[i+6] = tolower(srname[i]);
128+
for(i=12; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
124129

125130
/* We increment *info by 1 since the CBLAS interface adds one more
126131
* argument to all level 2 and 3 routines.

0 commit comments

Comments
 (0)