diff --git a/testsuite/input.operations b/testsuite/input.operations index e3cd20503..c3e6d6f16 100644 --- a/testsuite/input.operations +++ b/testsuite/input.operations @@ -21,12 +21,7 @@ # determined by its local switch. For example, if the level-1v section # override is set to 1, and there is a 1 on the line marked "addv", # then the addv operation will be tested. Similarly, a 0 would cause -# addv to not be tested. NOTE: You may ignore the lines marked "test -# sequential front-end." These lines are for future use, to -# distinguish tests of the sequential implementation from tests of -# the multithreaded implementation. For now, BLIS does not contain -# separate APIs for multithreaded execution, even though -# multithreading is supported. So, these should be left set to 1. +# addv to not be tested. # # ENABLING ONLY SELECT OPERATIONS # If you would like to enable just a few (or even just one) operation @@ -105,75 +100,60 @@ # --- Utility -------------------------------------------------------------- 1 # randv -1 # test sequential front-end -1 # dimensions: m 1 # randm -1 # test sequential front-end -1 -1 # dimensions: m n # --- Level-1v ------------------------------------------------------------- 1 # addv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # amaxv -1 # test sequential front-end -1 # dimensions: m 1 # axpbyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # axpyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # copyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # dotv -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # dotxv -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # normfv -1 # test sequential front-end -1 # dimensions: m 1 # scalv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjbeta 1 # scal2v -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # setv -1 # test sequential front-end -1 # dimensions: m 1 # subv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # xpbyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx @@ -181,40 +161,32 @@ # --- Level-1m ------------------------------------------------------------- 1 # addm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # axpym -1 # test sequential front-end -1 -1 # dimensions: m n ? # parameters: transa 1 # copym -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # normfm -1 # test sequential front-end -1 -2 # dimensions: m n 1 # scalm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: conjbeta 1 # scal2m -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # setm -1 # test sequential front-end -1 -2 # dimensions: m n 1 # subm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa @@ -222,27 +194,22 @@ # --- Level-1f kernels ----------------------------------------------------- 1 # axpy2v -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # dotaxpyv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: conjxt conjx conjy 1 # axpyf -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conja conjx 1 # dotxf -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjat conjx 1 # dotxaxpyf -1 # test sequential front-end -1 # dimensions: m ???? # parameters: conjat conja conjw conjx @@ -250,52 +217,42 @@ # --- Level-2 -------------------------------------------------------------- 1 # gemv -1 # test sequential front-end -1 -2 # dimensions: m n ?? # parameters: transa conjx 1 # ger -1 # test sequential front-end -1 -2 # dimensions: m n ?? # parameters: conjx conjy 1 # hemv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa conja conjx 1 # her -1 # test sequential front-end -1 # dimensions: m ?? # parameters: uploc conjx 1 # her2 -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploc conjx conjy 1 # symv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa conja conjx 1 # syr -1 # test sequential front-end -1 # dimensions: m ?? # parameters: uploc conjx 1 # syr2 -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploc conjx conjy 1 # trmv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa transa diaga 1 # trsv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa transa diaga @@ -303,15 +260,12 @@ # --- Level-3 micro-kernels ------------------------------------------------ 1 # gemm -1 # test sequential micro-kernel -1 # dimensions: k 1 # trsm -1 # test sequential micro-kernel ? # parameters: uploa 1 # gemmtrsm -1 # test sequential micro-kernel -1 # dimensions: k ? # parameters: uploa @@ -319,52 +273,42 @@ # --- Level-3 -------------------------------------------------------------- 1 # gemm -1 # test sequential front-end -1 -1 -1 # dimensions: m n k ?? # parameters: transa transb 1 # hemm -1 # test sequential front-end -1 -1 # dimensions: m n ???? # parameters: side uploa conja transb 1 # herk -1 # test sequential front-end -1 -1 # dimensions: m k ?? # parameters: uploc transa 1 # her2k -1 # test sequential front-end -1 -1 # dimensions: m k ??? # parameters: uploc transa transb 1 # symm -1 # test sequential front-end -1 -1 # dimensions: m n ???? # parameters: side uploa conja transb 1 # syrk -1 # test sequential front-end -1 -1 # dimensions: m k ?? # parameters: uploc transa 1 # syr2k -1 # test sequential front-end -1 -1 # dimensions: m k ??? # parameters: uploc transa transb 1 # trmm -1 # test sequential front-end -1 -1 # dimensions: m n ???? # parameters: side uploa transa diaga 1 # trmm3 -1 # test sequential front-end -1 -1 # dimensions: m n ????n # parameters: side uploa transa diaga transb 1 # trsm -1 # test sequential front-end -1 -1 # dimensions: m n ???? # parameters: side uploa transa diaga diff --git a/testsuite/input.operations.fast b/testsuite/input.operations.fast index 3cf2ce52f..d86de6ecc 100644 --- a/testsuite/input.operations.fast +++ b/testsuite/input.operations.fast @@ -21,12 +21,7 @@ # determined by its local switch. For example, if the level-1v section # override is set to 1, and there is a 1 on the line marked "addv", # then the addv operation will be tested. Similarly, a 0 would cause -# addv to not be tested. NOTE: You may ignore the lines marked "test -# sequential front-end." These lines are for future use, to -# distinguish tests of the sequential implementation from tests of -# the multithreaded implementation. For now, BLIS does not contain -# separate APIs for multithreaded execution, even though -# multithreading is supported. So, these should be left set to 1. +# addv to not be tested. # # ENABLING ONLY SELECT OPERATIONS # If you would like to enable just a few (or even just one) operation @@ -105,75 +100,60 @@ # --- Utility -------------------------------------------------------------- 1 # randv -1 # test sequential front-end -1 # dimensions: m 1 # randm -1 # test sequential front-end -1 -1 # dimensions: m n # --- Level-1v ------------------------------------------------------------- 1 # addv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # amaxv -1 # test sequential front-end -1 # dimensions: m 1 # axpbyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # axpyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # copyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # dotv -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # dotxv -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # normfv -1 # test sequential front-end -1 # dimensions: m 1 # scalv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjbeta 1 # scal2v -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # setv -1 # test sequential front-end -1 # dimensions: m 1 # subv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx 1 # xpbyv -1 # test sequential front-end -1 # dimensions: m ? # parameters: conjx @@ -181,40 +161,32 @@ # --- Level-1m ------------------------------------------------------------- 1 # addm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # axpym -1 # test sequential front-end -1 -1 # dimensions: m n ? # parameters: transa 1 # copym -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # normfm -1 # test sequential front-end -1 -2 # dimensions: m n 1 # scalm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: conjbeta 1 # scal2m -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa 1 # setm -1 # test sequential front-end -1 -2 # dimensions: m n 1 # subm -1 # test sequential front-end -1 -2 # dimensions: m n ? # parameters: transa @@ -222,27 +194,22 @@ # --- Level-1f kernels ----------------------------------------------------- 1 # axpy2v -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjx conjy 1 # dotaxpyv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: conjxt conjx conjy 1 # axpyf -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conja conjx 1 # dotxf -1 # test sequential front-end -1 # dimensions: m ?? # parameters: conjat conjx 1 # dotxaxpyf -1 # test sequential front-end -1 # dimensions: m ???? # parameters: conjat conja conjw conjx @@ -250,52 +217,42 @@ # --- Level-2 -------------------------------------------------------------- 1 # gemv -1 # test sequential front-end -1 -2 # dimensions: m n ?? # parameters: transa conjx 1 # ger -1 # test sequential front-end -1 -2 # dimensions: m n ?? # parameters: conjx conjy 1 # hemv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa conja conjx 1 # her -1 # test sequential front-end -1 # dimensions: m ?? # parameters: uploc conjx 1 # her2 -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploc conjx conjy 1 # symv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa conja conjx 1 # syr -1 # test sequential front-end -1 # dimensions: m ?? # parameters: uploc conjx 1 # syr2 -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploc conjx conjy 1 # trmv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa transa diaga 1 # trsv -1 # test sequential front-end -1 # dimensions: m ??? # parameters: uploa transa diaga @@ -319,52 +276,42 @@ # --- Level-3 -------------------------------------------------------------- 1 # gemm -1 # test sequential front-end -1 -1 -1 # dimensions: m n k nn # parameters: transa transb 1 # hemm -1 # test sequential front-end -1 -1 # dimensions: m n ??nn # parameters: side uploa conja transb 1 # herk -1 # test sequential front-end -1 -1 # dimensions: m k ?n # parameters: uploc transa 1 # her2k -1 # test sequential front-end -1 -1 # dimensions: m k ?nn # parameters: uploc transa transb 1 # symm -1 # test sequential front-end -1 -1 # dimensions: m n ??nn # parameters: side uploa conja transb 1 # syrk -1 # test sequential front-end -1 -1 # dimensions: m k ?n # parameters: uploc transa 1 # syr2k -1 # test sequential front-end -1 -1 # dimensions: m k ?nn # parameters: uploc transa transb 1 # trmm -1 # test sequential front-end -1 -1 # dimensions: m n ??n? # parameters: side uploa transa diaga 0 # trmm3 -1 # test sequential front-end -1 -1 # dimensions: m n ??n?n # parameters: side uploa transa diaga transb 1 # trsm -1 # test sequential front-end -1 -1 # dimensions: m n ??n? # parameters: side uploa transa diaga diff --git a/testsuite/src/test_addm.c b/testsuite/src/test_addm.c index 2cca94caa..b49783231 100644 --- a/testsuite/src/test_addm.c +++ b/testsuite/src/test_addm.c @@ -104,17 +104,17 @@ void libblis_test_addm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_addm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_addv.c b/testsuite/src/test_addv.c index 048af87a3..97afcc792 100644 --- a/testsuite/src/test_addv.c +++ b/testsuite/src/test_addv.c @@ -103,17 +103,17 @@ void libblis_test_addv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_addv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_amaxv.c b/testsuite/src/test_amaxv.c index 5befee328..7ce0ef506 100644 --- a/testsuite/src/test_amaxv.c +++ b/testsuite/src/test_amaxv.c @@ -107,17 +107,17 @@ void libblis_test_amaxv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_amaxv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_axpbyv.c b/testsuite/src/test_axpbyv.c index 737384c0a..460909eb5 100644 --- a/testsuite/src/test_axpbyv.c +++ b/testsuite/src/test_axpbyv.c @@ -114,17 +114,17 @@ void libblis_test_axpbyv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_axpbyv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_axpy2v.c b/testsuite/src/test_axpy2v.c index 6319cc29d..4f1f2c8c6 100644 --- a/testsuite/src/test_axpy2v.c +++ b/testsuite/src/test_axpy2v.c @@ -114,17 +114,17 @@ void libblis_test_axpy2v { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1f_over == DISABLE_ALL ) return; + libblis_test_l1f_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_axpy2v_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_axpyf.c b/testsuite/src/test_axpyf.c index 61397ab3d..e7c7ad69f 100644 --- a/testsuite/src/test_axpyf.c +++ b/testsuite/src/test_axpyf.c @@ -112,17 +112,17 @@ void libblis_test_axpyf { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1f_over == DISABLE_ALL ) return; + libblis_test_l1f_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_axpyf_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_axpym.c b/testsuite/src/test_axpym.c index 04992a0de..53250106e 100644 --- a/testsuite/src/test_axpym.c +++ b/testsuite/src/test_axpym.c @@ -109,17 +109,17 @@ void libblis_test_axpym { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_axpym_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_axpyv.c b/testsuite/src/test_axpyv.c index e616c3350..cb3415692 100644 --- a/testsuite/src/test_axpyv.c +++ b/testsuite/src/test_axpyv.c @@ -109,17 +109,17 @@ void libblis_test_axpyv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_axpyv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_copym.c b/testsuite/src/test_copym.c index 166e2efe8..859f34fda 100644 --- a/testsuite/src/test_copym.c +++ b/testsuite/src/test_copym.c @@ -103,17 +103,17 @@ void libblis_test_copym { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_copym_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_copyv.c b/testsuite/src/test_copyv.c index c9e77e6dc..a7f0b9aec 100644 --- a/testsuite/src/test_copyv.c +++ b/testsuite/src/test_copyv.c @@ -103,17 +103,17 @@ void libblis_test_copyv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_copyv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_dotaxpyv.c b/testsuite/src/test_dotaxpyv.c index 41a6cea89..26c1e0288 100644 --- a/testsuite/src/test_dotaxpyv.c +++ b/testsuite/src/test_dotaxpyv.c @@ -116,17 +116,17 @@ void libblis_test_dotaxpyv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1f_over == DISABLE_ALL ) return; + libblis_test_l1f_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_dotaxpyv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_dotv.c b/testsuite/src/test_dotv.c index f6a177a42..79368ad3e 100644 --- a/testsuite/src/test_dotv.c +++ b/testsuite/src/test_dotv.c @@ -105,17 +105,17 @@ void libblis_test_dotv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_dotv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_dotxaxpyf.c b/testsuite/src/test_dotxaxpyf.c index e9160af37..85b819b79 100644 --- a/testsuite/src/test_dotxaxpyf.c +++ b/testsuite/src/test_dotxaxpyf.c @@ -122,17 +122,17 @@ void libblis_test_dotxaxpyf { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1f_over == DISABLE_ALL ) return; + libblis_test_l1f_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_dotxaxpyf_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_dotxf.c b/testsuite/src/test_dotxf.c index ff3032a55..c6a1d0977 100644 --- a/testsuite/src/test_dotxf.c +++ b/testsuite/src/test_dotxf.c @@ -114,17 +114,17 @@ void libblis_test_dotxf { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1f_over == DISABLE_ALL ) return; + libblis_test_l1f_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_dotxf_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_dotxv.c b/testsuite/src/test_dotxv.c index 796574220..82d876190 100644 --- a/testsuite/src/test_dotxv.c +++ b/testsuite/src/test_dotxv.c @@ -110,17 +110,17 @@ void libblis_test_dotxv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_dotxv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_gemm.c b/testsuite/src/test_gemm.c index e692a54e4..061f0f825 100644 --- a/testsuite/src/test_gemm.c +++ b/testsuite/src/test_gemm.c @@ -116,17 +116,17 @@ void libblis_test_gemm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_gemm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_gemm_ukr.c b/testsuite/src/test_gemm_ukr.c index c86cfcafe..df79e15a9 100644 --- a/testsuite/src/test_gemm_ukr.c +++ b/testsuite/src/test_gemm_ukr.c @@ -117,17 +117,17 @@ void libblis_test_gemm_ukr { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3ukr_over == DISABLE_ALL ) return; + libblis_test_l3ukr_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_gemm_ukr_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_gemmtrsm_ukr.c b/testsuite/src/test_gemmtrsm_ukr.c index a24fdf896..db142487f 100644 --- a/testsuite/src/test_gemmtrsm_ukr.c +++ b/testsuite/src/test_gemmtrsm_ukr.c @@ -132,17 +132,17 @@ void libblis_test_gemmtrsm_ukr { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3ukr_over == DISABLE_ALL ) return; + libblis_test_l3ukr_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_gemmtrsm_ukr_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_gemv.c b/testsuite/src/test_gemv.c index ac2cf9b69..a7be2860d 100644 --- a/testsuite/src/test_gemv.c +++ b/testsuite/src/test_gemv.c @@ -113,17 +113,17 @@ void libblis_test_gemv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_gemv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_ger.c b/testsuite/src/test_ger.c index 35054793f..220d1dcf9 100644 --- a/testsuite/src/test_ger.c +++ b/testsuite/src/test_ger.c @@ -111,17 +111,17 @@ void libblis_test_ger { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_ger_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_hemm.c b/testsuite/src/test_hemm.c index b2265a468..535450262 100644 --- a/testsuite/src/test_hemm.c +++ b/testsuite/src/test_hemm.c @@ -119,17 +119,17 @@ void libblis_test_hemm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_hemm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_hemv.c b/testsuite/src/test_hemv.c index a4ddefda1..0cae6044d 100644 --- a/testsuite/src/test_hemv.c +++ b/testsuite/src/test_hemv.c @@ -114,17 +114,17 @@ void libblis_test_hemv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_hemv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_her.c b/testsuite/src/test_her.c index 06e258925..c0e857387 100644 --- a/testsuite/src/test_her.c +++ b/testsuite/src/test_her.c @@ -111,17 +111,17 @@ void libblis_test_her { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_her_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_her2.c b/testsuite/src/test_her2.c index c0210c0b9..827a723ce 100644 --- a/testsuite/src/test_her2.c +++ b/testsuite/src/test_her2.c @@ -113,17 +113,17 @@ void libblis_test_her2 { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_her2_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_her2k.c b/testsuite/src/test_her2k.c index d79f56698..b708559cb 100644 --- a/testsuite/src/test_her2k.c +++ b/testsuite/src/test_her2k.c @@ -117,17 +117,17 @@ void libblis_test_her2k { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_her2k_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_herk.c b/testsuite/src/test_herk.c index 1db6dc113..8b3bb74b6 100644 --- a/testsuite/src/test_herk.c +++ b/testsuite/src/test_herk.c @@ -115,17 +115,17 @@ void libblis_test_herk { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_herk_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_libblis.c b/testsuite/src/test_libblis.c index 20a69254d..419fadbcb 100644 --- a/testsuite/src/test_libblis.c +++ b/testsuite/src/test_libblis.c @@ -498,10 +498,6 @@ void libblis_test_read_op_info( test_ops_t* ops, ops->indiv_over = TRUE; } - // Read the line for the sequential front-end/micro-kernel interface. - libblis_test_read_next_line( buffer, input_stream ); - sscanf( buffer, "%d ", &(op->front_seq) ); - op->n_dims = libblis_test_get_n_dims_from_dimset( dimset ); op->dimset = dimset; @@ -569,12 +565,6 @@ void libblis_test_read_op_info( test_ops_t* ops, // Initialize the parent pointer. op->ops = ops; - - // Disable operation if requested. - if ( op->op_switch == DISABLE_ALL ) - { - op->front_seq = DISABLE; - } } @@ -975,9 +965,7 @@ void libblis_test_output_op_struct( FILE* os, test_op_t* op, char* op_str ) { dimset_t dimset = op->dimset; - libblis_test_fprintf_c( os, "test %s seq front-end? %d\n", op_str, op->front_seq ); - - if ( dimset == BLIS_TEST_DIMS_MNK ) + if ( dimset == BLIS_TEST_DIMS_MNK ) { libblis_test_fprintf_c( os, "%s m n k %d %d %d\n", op_str, op->dim_spec[0], op->dim_spec[1], op->dim_spec[2] ); @@ -2434,7 +2422,7 @@ int libblis_test_op_is_disabled( test_op_t* op ) // If there was at least one individual override, then an op test is // disabled if it is NOT equal to ENABLE_ONLY. If there were no // individual overrides, then an op test is disabled if it is equal - // to DISABLE_ALL. + // to DISABLE. if ( op->ops->indiv_over == TRUE ) { if ( op->op_switch != ENABLE_ONLY ) r_val = TRUE; @@ -2442,9 +2430,56 @@ int libblis_test_op_is_disabled( test_op_t* op ) } else // if ( op->ops->indiv_over == FALSE ) { - if ( op->op_switch == DISABLE_ALL ) r_val = TRUE; - else r_val = FALSE; + if ( op->op_switch == DISABLE ) r_val = TRUE; + else r_val = FALSE; } return r_val; } + +int libblis_test_op_is_done( test_op_t* op ) +{ + return op->test_done; +} + +int libblis_test_util_is_disabled( test_op_t* op ) +{ + if ( op->ops->util_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l1v_is_disabled( test_op_t* op ) +{ + if ( op->ops->l1v_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l1m_is_disabled( test_op_t* op ) +{ + if ( op->ops->l1m_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l1f_is_disabled( test_op_t* op ) +{ + if ( op->ops->l1f_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l2_is_disabled( test_op_t* op ) +{ + if ( op->ops->l2_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l3ukr_is_disabled( test_op_t* op ) +{ + if ( op->ops->l3ukr_over == DISABLE ) return TRUE; + else return FALSE; +} + +int libblis_test_l3_is_disabled( test_op_t* op ) +{ + if ( op->ops->l3_over == DISABLE ) return TRUE; + else return FALSE; +} diff --git a/testsuite/src/test_libblis.h b/testsuite/src/test_libblis.h index 69b51e333..ac49f8da1 100644 --- a/testsuite/src/test_libblis.h +++ b/testsuite/src/test_libblis.h @@ -86,8 +86,6 @@ #define SECONDS_TO_SLEEP 3 -#define DISABLE_ALL 0 -#define SPECIFY 1 #define DISABLE 0 #define ENABLE 1 #define ENABLE_ONLY 2 @@ -187,7 +185,9 @@ typedef struct opid_t opid; int op_switch; +#if 0 int front_seq; +#endif unsigned int n_dims; dimset_t dimset; int dim_spec[ MAX_NUM_DIMENSIONS ]; @@ -430,6 +430,14 @@ void libblis_test_parse_command_line( int argc, char** argv ); void libblis_test_check_empty_problem( obj_t* c, double* perf, double* resid ); int libblis_test_op_is_disabled( test_op_t* op ); +int libblis_test_op_is_done( test_op_t* op ); +int libblis_test_util_is_disabled( test_op_t* op ); +int libblis_test_l1v_is_disabled( test_op_t* op ); +int libblis_test_l1m_is_disabled( test_op_t* op ); +int libblis_test_l1f_is_disabled( test_op_t* op ); +int libblis_test_l2_is_disabled( test_op_t* op ); +int libblis_test_l3ukr_is_disabled( test_op_t* op ); +int libblis_test_l3_is_disabled( test_op_t* op ); // // --- Test module headers ----------------------------------------------------- diff --git a/testsuite/src/test_normfm.c b/testsuite/src/test_normfm.c index 1bee0756e..ba11f015c 100644 --- a/testsuite/src/test_normfm.c +++ b/testsuite/src/test_normfm.c @@ -102,17 +102,17 @@ void libblis_test_normfm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_normfm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_normfv.c b/testsuite/src/test_normfv.c index c5224cd06..7fb05e29d 100644 --- a/testsuite/src/test_normfv.c +++ b/testsuite/src/test_normfv.c @@ -102,17 +102,17 @@ void libblis_test_normfv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_normfv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_randm.c b/testsuite/src/test_randm.c index 9eda02a34..8cb51e872 100644 --- a/testsuite/src/test_randm.c +++ b/testsuite/src/test_randm.c @@ -99,17 +99,17 @@ void libblis_test_randm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->util_over == DISABLE_ALL ) return; + libblis_test_util_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_randm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_randv.c b/testsuite/src/test_randv.c index 7ac693c9a..a7f10947e 100644 --- a/testsuite/src/test_randv.c +++ b/testsuite/src/test_randv.c @@ -99,17 +99,17 @@ void libblis_test_randv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->util_over == DISABLE_ALL ) return; + libblis_test_util_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_randv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_scal2m.c b/testsuite/src/test_scal2m.c index dfbbdb64a..06a8ff0ab 100644 --- a/testsuite/src/test_scal2m.c +++ b/testsuite/src/test_scal2m.c @@ -108,17 +108,17 @@ void libblis_test_scal2m { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_scal2m_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_scal2v.c b/testsuite/src/test_scal2v.c index 9ab18d317..379c2179b 100644 --- a/testsuite/src/test_scal2v.c +++ b/testsuite/src/test_scal2v.c @@ -108,17 +108,17 @@ void libblis_test_scal2v { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_scal2v_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_scalm.c b/testsuite/src/test_scalm.c index 2d6f53e80..f4c73bc47 100644 --- a/testsuite/src/test_scalm.c +++ b/testsuite/src/test_scalm.c @@ -104,17 +104,17 @@ void libblis_test_scalm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_scalm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_scalv.c b/testsuite/src/test_scalv.c index b019cd3c7..045ca0f2c 100644 --- a/testsuite/src/test_scalv.c +++ b/testsuite/src/test_scalv.c @@ -105,17 +105,17 @@ void libblis_test_scalv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_scalv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_setm.c b/testsuite/src/test_setm.c index 781ec4aa5..de1bd3636 100644 --- a/testsuite/src/test_setm.c +++ b/testsuite/src/test_setm.c @@ -101,17 +101,17 @@ void libblis_test_setm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_setm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_setv.c b/testsuite/src/test_setv.c index 456aca6cb..912a4885f 100644 --- a/testsuite/src/test_setv.c +++ b/testsuite/src/test_setv.c @@ -101,17 +101,17 @@ void libblis_test_setv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_setv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_subm.c b/testsuite/src/test_subm.c index 950c1fc18..9821329fd 100644 --- a/testsuite/src/test_subm.c +++ b/testsuite/src/test_subm.c @@ -104,17 +104,17 @@ void libblis_test_subm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1m_over == DISABLE_ALL ) return; + libblis_test_l1m_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_subm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_subv.c b/testsuite/src/test_subv.c index 0189d321f..1c1152ae5 100644 --- a/testsuite/src/test_subv.c +++ b/testsuite/src/test_subv.c @@ -104,17 +104,17 @@ void libblis_test_subv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_subv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_symm.c b/testsuite/src/test_symm.c index 0ba63d82a..04b8ffe82 100644 --- a/testsuite/src/test_symm.c +++ b/testsuite/src/test_symm.c @@ -119,17 +119,17 @@ void libblis_test_symm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_symm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_symv.c b/testsuite/src/test_symv.c index 4d5e0f386..99343cff6 100644 --- a/testsuite/src/test_symv.c +++ b/testsuite/src/test_symv.c @@ -114,17 +114,17 @@ void libblis_test_symv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_symv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_syr.c b/testsuite/src/test_syr.c index dbc1f4d26..c8f496d1f 100644 --- a/testsuite/src/test_syr.c +++ b/testsuite/src/test_syr.c @@ -111,17 +111,17 @@ void libblis_test_syr { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_syr_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_syr2.c b/testsuite/src/test_syr2.c index 9edad1b69..9ee68db9b 100644 --- a/testsuite/src/test_syr2.c +++ b/testsuite/src/test_syr2.c @@ -113,17 +113,17 @@ void libblis_test_syr2 { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_syr2_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_syr2k.c b/testsuite/src/test_syr2k.c index fcf837575..0ff10cdc2 100644 --- a/testsuite/src/test_syr2k.c +++ b/testsuite/src/test_syr2k.c @@ -117,17 +117,17 @@ void libblis_test_syr2k { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_syr2k_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_syrk.c b/testsuite/src/test_syrk.c index 8b1ecc535..3cd5e2c48 100644 --- a/testsuite/src/test_syrk.c +++ b/testsuite/src/test_syrk.c @@ -115,17 +115,17 @@ void libblis_test_syrk { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_syrk_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trmm.c b/testsuite/src/test_trmm.c index e13ad08a6..e10237ef0 100644 --- a/testsuite/src/test_trmm.c +++ b/testsuite/src/test_trmm.c @@ -115,17 +115,17 @@ void libblis_test_trmm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trmm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trmm3.c b/testsuite/src/test_trmm3.c index 162731bf6..741678c1c 100644 --- a/testsuite/src/test_trmm3.c +++ b/testsuite/src/test_trmm3.c @@ -119,17 +119,17 @@ void libblis_test_trmm3 { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trmm3_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trmv.c b/testsuite/src/test_trmv.c index 75a3d1acf..5030ef37c 100644 --- a/testsuite/src/test_trmv.c +++ b/testsuite/src/test_trmv.c @@ -110,17 +110,17 @@ void libblis_test_trmv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trmv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trsm.c b/testsuite/src/test_trsm.c index d4debc516..39860fa6d 100644 --- a/testsuite/src/test_trsm.c +++ b/testsuite/src/test_trsm.c @@ -115,17 +115,17 @@ void libblis_test_trsm { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3_over == DISABLE_ALL ) return; + libblis_test_l3_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trsm_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trsm_ukr.c b/testsuite/src/test_trsm_ukr.c index 5bbec8dd0..e4f6edb75 100644 --- a/testsuite/src/test_trsm_ukr.c +++ b/testsuite/src/test_trsm_ukr.c @@ -115,17 +115,17 @@ void libblis_test_trsm_ukr { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l3ukr_over == DISABLE_ALL ) return; + libblis_test_l3ukr_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trsm_ukr_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_trsv.c b/testsuite/src/test_trsv.c index 0872af5b9..11255d5d1 100644 --- a/testsuite/src/test_trsv.c +++ b/testsuite/src/test_trsv.c @@ -110,17 +110,17 @@ void libblis_test_trsv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l2_over == DISABLE_ALL ) return; + libblis_test_l2_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_trsv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op, diff --git a/testsuite/src/test_xpbyv.c b/testsuite/src/test_xpbyv.c index 34129a5fd..3578f51f8 100644 --- a/testsuite/src/test_xpbyv.c +++ b/testsuite/src/test_xpbyv.c @@ -108,17 +108,17 @@ void libblis_test_xpbyv { // Return early if this test has already been done. - if ( op->test_done == TRUE ) return; + if ( libblis_test_op_is_done( op ) ) return; // Return early if operation is disabled. if ( libblis_test_op_is_disabled( op ) || - op->ops->l1v_over == DISABLE_ALL ) return; + libblis_test_l1v_is_disabled( op ) ) return; // Call dependencies first. if ( TRUE ) libblis_test_xpbyv_deps( params, op ); // Execute the test driver for each implementation requested. - if ( op->front_seq == ENABLE ) + //if ( op->front_seq == ENABLE ) { libblis_test_op_driver( params, op,