Skip to content

Commit a4992e0

Browse files
committed
Fix utest compilation
Introduced recently when adding new test cases for ZSCAL - include cblas is needed for cblas_zscal - ASSERT macro does not exist - missing closing )
1 parent 6f0e0e4 commit a4992e0

File tree

1 file changed

+17
-16
lines changed

1 file changed

+17
-16
lines changed

utest/utest_main2.c

+17-16
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
3838
#define CTEST_SEGFAULT
3939
#define CTEST_ADD_TESTS_MANUALLY
4040

41+
#include "cblas.h"
4142
#include "openblas_utest.h"
4243

4344
CTEST(amax, samax){
@@ -623,43 +624,43 @@ CTEST(zscal, i_nan)
623624
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
624625
double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
625626
cblas_zscal(9, i, &nan, 1);
626-
ASSERT(isnan(nan[0]);
627-
ASSERT(isnan(nan[1]);
628-
ASSERT(isnan(nan[16]);
629-
ASSERT(isnan(nan[17]);
627+
ASSERT_TRUE(isnan(nan[0]));
628+
ASSERT_TRUE(isnan(nan[1]));
629+
ASSERT_TRUE(isnan(nan[16]));
630+
ASSERT_TRUE(isnan(nan[17]));
630631
}
631632

632633
CTEST(zscal, nan_i)
633634
{
634635
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
635636
double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
636637
cblas_zscal(9, &nan, &i, 1);
637-
ASSERT(isnan(i[0]);
638-
ASSERT(isnan(i[1]);
639-
ASSERT(isnan(i[16]);
640-
ASSERT(isnan(i[17]);
638+
ASSERT_TRUE(isnan(i[0]));
639+
ASSERT_TRUE(isnan(i[1]));
640+
ASSERT_TRUE(isnan(i[16]));
641+
ASSERT_TRUE(isnan(i[17]));
641642
}
642643

643644
CTEST(zscal, i_inf)
644645
{
645646
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
646647
double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
647648
cblas_zscal(9, i, &inf, 1);
648-
ASSERT(isnan(inf[0]);
649-
ASSERT(isinf(inf[1]);
650-
ASSERT(isnan(inf[16]);
651-
ASSERT(isinf(inf[17]);
649+
ASSERT_TRUE(isnan(inf[0]));
650+
ASSERT_TRUE(isinf(inf[1]));
651+
ASSERT_TRUE(isnan(inf[16]));
652+
ASSERT_TRUE(isinf(inf[17]));
652653
}
653654

654655
CTEST(zscal, inf_i)
655656
{
656657
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
657658
double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
658659
cblas_zscal(9, &inf, &i, 1);
659-
ASSERT(isnan(i[0]);
660-
ASSERT(isinf(i[1]);
661-
ASSERT(isnan(i[16]);
662-
ASSERT(isinf(i[17]);
660+
ASSERT_TRUE(isnan(i[0]));
661+
ASSERT_TRUE(isinf(i[1]));
662+
ASSERT_TRUE(isnan(i[16]));
663+
ASSERT_TRUE(isinf(i[17]));
663664
}
664665

665666
int main(int argc, const char ** argv){

0 commit comments

Comments
 (0)