@@ -38,6 +38,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38
38
#define CTEST_SEGFAULT
39
39
#define CTEST_ADD_TESTS_MANUALLY
40
40
41
+ #include "cblas.h"
41
42
#include "openblas_utest.h"
42
43
43
44
CTEST (amax , samax ){
@@ -623,43 +624,43 @@ CTEST(zscal, i_nan)
623
624
double i [] = {0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 };
624
625
double nan [] = {NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 };
625
626
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 ]) );
630
631
}
631
632
632
633
CTEST (zscal , nan_i )
633
634
{
634
635
double i [] = {0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 };
635
636
double nan [] = {NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 , NAN ,0 };
636
637
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 ]) );
641
642
}
642
643
643
644
CTEST (zscal , i_inf )
644
645
{
645
646
double i [] = {0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 };
646
647
double inf [] = {INFINITY , 0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 };
647
648
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 ]) );
652
653
}
653
654
654
655
CTEST (zscal , inf_i )
655
656
{
656
657
double i [] = {0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 };
657
658
double inf [] = {INFINITY , 0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 , INFINITY ,0 };
658
659
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 ]) );
663
664
}
664
665
665
666
int main (int argc , const char * * argv ){
0 commit comments