From 862d06ab8ae0486a41c138ed51c2cbc75722a906 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Fri, 4 Aug 2023 15:28:02 +0200
Subject: [PATCH] Add INCX=0,INCY=1 test case for CAXPY

---
 utest/test_axpy.c | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/utest/test_axpy.c b/utest/test_axpy.c
index 33b6cf6ed..26005e70f 100644
--- a/utest/test_axpy.c
+++ b/utest/test_axpy.c
@@ -89,8 +89,6 @@ CTEST(axpy,zaxpy_incx_0)
         BLASFUNC(zaxpy)(&N,a,x1,&incX,y1,&incY);
 
         for(i=0; i<2*N; i++){
-//fprintf(stderr,"output X %lf\n",x1[i]);
-//fprintf(stderr,"output Y %lf\n",y1[i]);
 		ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
                 ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
         }
@@ -138,5 +136,24 @@ CTEST(axpy,caxpy_inc_0)
 		ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
 	}
 }
+
+CTEST(axpy,caxpy_incx_0)
+{
+	blasint i;
+	blasint N=4,incX=0,incY=1;
+	float a[2]={0.25,0.5};
+	float x1[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
+	float y1[]={2.0,4.0,6.0,8.0,2.0,4.0,6.0,8.0};
+        double x2[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
+        double y2[]={0.75,5.25,4.75,9.25,0.75,5.25,4.75,9.25};
+
+	//OpenBLAS
+	BLASFUNC(caxpy)(&N,a,x1,&incX,y1,&incY);
+
+	for(i=0; i<2*N; i++){
+		ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
+		ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
+	}
+}
 #endif