2015-08-22 17:11:20 +02:00
|
|
|
|
|
|
|
// =================================================================================================
|
|
|
|
// This file is part of the CLBlast project. The project is licensed under Apache Version 2.0. This
|
|
|
|
// project loosely follows the Google C++ styleguide and uses a tab-size of two spaces and a max-
|
|
|
|
// width of 100 characters per line.
|
|
|
|
//
|
|
|
|
// Author(s):
|
|
|
|
// Cedric Nugteren <www.cedricnugteren.nl>
|
|
|
|
//
|
|
|
|
// =================================================================================================
|
|
|
|
|
2016-06-18 20:20:13 +02:00
|
|
|
#include "test/correctness/testblas.hpp"
|
|
|
|
#include "test/routines/level1/xscal.hpp"
|
2015-08-22 17:11:20 +02:00
|
|
|
|
|
|
|
// Main function (not within the clblast namespace)
|
|
|
|
int main(int argc, char *argv[]) {
|
2016-06-02 16:24:22 +02:00
|
|
|
auto errors = size_t{0};
|
|
|
|
errors += clblast::RunTests<clblast::TestXscal<float>, float, float>(argc, argv, false, "SSCAL");
|
|
|
|
errors += clblast::RunTests<clblast::TestXscal<double>, double, double>(argc, argv, true, "DSCAL");
|
2017-04-03 21:44:35 +02:00
|
|
|
errors += clblast::RunTests<clblast::TestXscal<clblast::float2>, clblast::float2, clblast::float2>(argc, argv, true, "CSCAL");
|
|
|
|
errors += clblast::RunTests<clblast::TestXscal<clblast::double2>, clblast::double2, clblast::double2>(argc, argv, true, "ZSCAL");
|
2017-04-17 16:44:00 +02:00
|
|
|
errors += clblast::RunTests<clblast::TestXscal<clblast::half>, clblast::half, clblast::half>(argc, argv, true, "HSCAL");
|
2016-06-02 16:24:22 +02:00
|
|
|
if (errors > 0) { return 1; } else { return 0; }
|
2015-08-22 17:11:20 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
// =================================================================================================
|