@@ -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
4344CTEST (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
632633CTEST (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
643644CTEST (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
654655CTEST (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
665666int main (int argc , const char * * argv ){
0 commit comments