floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add test for drotmg bug fixed by 692b14c 

Test requested in issue xianyi/OpenBLAS#484.

Run tests by applying the following change and then make:

	diff --git a/Makefile.rule b/Makefile.rule
	index bea1fe1..9852ff3 100644
	--- a/Makefile.rule
	+++ b/Makefile.rule
	@@ -140,7 +140,7 @@ NO_AFFINITY = 1

	-# UTEST_CHECK = 1
	+UTEST_CHECK = 1
This commit is contained in:
kortschak 2015-01-07 10:06:55 +10:30
parent 5cb5af9333
commit 5344f335a8
4 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CONTRIBUTORS.md
View File

@ -121,5 +121,8 @@ In chronological order:
* [2014-10-10] trmm and sgemm kernels (optimized for APM's X-Gene 1). * [2014-10-10] trmm and sgemm kernels (optimized for APM's X-Gene 1).
ARMv8 support. ARMv8 support.
* Dan Kortschak
* [2015-01-07] Added test for drotmg bug #484.
* [Your name or handle] <[email or website]> * [Your name or handle] <[email or website]>
* [Date] [Brief summary of your changes] * [Date] [Brief summary of your changes]

1
utest/common_utest.h
View File

@ -59,6 +59,7 @@ void test_zdotu_n_1(void);
void test_zdotu_offset_1(void); void test_zdotu_offset_1(void);
void test_drotmg(void); void test_drotmg(void);
void test_drotmg_D1eqD2_X1eqX2();
void test_dsdot_n_1(void); void test_dsdot_n_1(void);

1
utest/main.c
View File

@ -57,6 +57,7 @@ CU_TestInfo test_level1[]={
{"Testing zdotu with input x & y offset == 1",test_zdotu_offset_1}, {"Testing zdotu with input x & y offset == 1",test_zdotu_offset_1},
{"Testing drotmg",test_drotmg}, {"Testing drotmg",test_drotmg},
{"Testing drotmg with D1 == D2 && X1 == X2",test_drotmg_D1eqD2_X1eqX2},
{"Testing dsdot with n == 1",test_dsdot_n_1}, {"Testing dsdot with n == 1",test_dsdot_n_1},

33
utest/test_rotmg.c
View File

@ -65,3 +65,36 @@ void test_drotmg()
CU_ASSERT_DOUBLE_EQUAL(te_param[i], tr_param[i], CHECK_EPS); CU_ASSERT_DOUBLE_EQUAL(te_param[i], tr_param[i], CHECK_EPS);
} }
} }
void test_drotmg_D1eqD2_X1eqX2()
{
double te_d1, tr_d1;
double te_d2, tr_d2;
double te_x1, tr_x1;
double te_y1, tr_y1;
double te_param[5];
double tr_param[5];
int i=0;
te_d1= tr_d1=2.;
te_d2= tr_d2=2.;
te_x1= tr_x1=8.;
te_y1= tr_y1=8.;
for(i=0; i<5; i++){
te_param[i]=tr_param[i]=0.0;
}
//OpenBLAS
BLASFUNC(drotmg)(&te_d1, &te_d2, &te_x1, &te_y1, te_param);
//reference
BLASFUNC_REF(drotmg)(&tr_d1, &tr_d2, &tr_x1, &tr_y1, tr_param);
CU_ASSERT_DOUBLE_EQUAL(te_d1, tr_d1, CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(te_d2, tr_d2, CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(te_x1, tr_x1, CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(te_y1, tr_y1, CHECK_EPS);
for(i=0; i<5; i++){
CU_ASSERT_DOUBLE_EQUAL(te_param[i], tr_param[i], CHECK_EPS);
}
}