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. USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
**********************************************************************************/ **********************************************************************************/
#include <math.h>
#include "openblas_utest.h" #include "openblas_utest.h"
#if defined(BUILD_DOUBLE) #if defined(BUILD_DOUBLE)
@ -64,4 +64,17 @@ CTEST(dnrm2,dnrm2_tiny)
res1=BLASFUNC(dnrm2)(&n, x, &incx); res1=BLASFUNC(dnrm2)(&n, x, &incx);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS); 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 #endif