floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a test for dnrm(..., incx=-1)

This commit is contained in:
Evgeni Burovski 2024-03-12 15:15:56 +03:00 committed by GitHub
parent 4a6025af9a
commit a6e16a065d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utest/test_dnrm2.c
View File

@ -30,7 +30,7 @@ OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
**********************************************************************************/
#include <math.h>
#include "openblas_utest.h"
#if defined(BUILD_DOUBLE)
@ -64,4 +64,17 @@ CTEST(dnrm2,dnrm2_tiny)
res1=BLASFUNC(dnrm2)(&n, x, &incx);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS);
}
CTEST(dnrm2,dnrm2_neg_incx)
{
int i;
double x[5];
blasint incx=-1;
blasint n=5;
double res1, res2;
for (i=0;i<n;i++)x[i]=10.0
res1=BLASFUNC(dnrm2)(&n, x, &incx);
res2 = sqrt(500.0);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS);
}
#endif