|
|
33fa5a |
From 9a3e640a517926c47b5655ba0033d4f56df4a66e Mon Sep 17 00:00:00 2001
|
|
|
33fa5a |
From: Jakub Martisko <jamartis@redhat.com>
|
|
|
33fa5a |
Date: Wed, 22 Jan 2020 14:24:46 +0100
|
|
|
33fa5a |
Subject: [PATCH] test
|
|
|
33fa5a |
|
|
|
33fa5a |
---
|
|
|
33fa5a |
interfaces/blas/C/testing/c_dblat1.f | 4 ++--
|
|
|
33fa5a |
interfaces/blas/C/testing/c_sblat1.f | 4 ++--
|
|
|
33fa5a |
2 files changed, 4 insertions(+), 4 deletions(-)
|
|
|
33fa5a |
|
|
|
33fa5a |
diff --git a/interfaces/blas/C/testing/c_dblat1.f b/interfaces/blas/C/testing/c_dblat1.f
|
|
|
33fa5a |
index 55ea989..7269601 100644
|
|
|
33fa5a |
--- a/interfaces/blas/C/testing/c_dblat1.f
|
|
|
33fa5a |
+++ b/interfaces/blas/C/testing/c_dblat1.f
|
|
|
33fa5a |
@@ -247,11 +247,11 @@
|
|
|
33fa5a |
IF (ICASE.EQ.7) THEN
|
|
|
33fa5a |
* .. DNRM2TEST ..
|
|
|
33fa5a |
STEMP(1) = DTRUE1(NP1)
|
|
|
33fa5a |
- CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC)
|
|
|
33fa5a |
+ CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC)
|
|
|
33fa5a |
ELSE IF (ICASE.EQ.8) THEN
|
|
|
33fa5a |
* .. DASUMTEST ..
|
|
|
33fa5a |
STEMP(1) = DTRUE3(NP1)
|
|
|
33fa5a |
- CALL STEST1(DASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC)
|
|
|
33fa5a |
+ CALL STEST1(DASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC)
|
|
|
33fa5a |
ELSE IF (ICASE.EQ.9) THEN
|
|
|
33fa5a |
* .. DSCALTEST ..
|
|
|
33fa5a |
CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
|
|
|
33fa5a |
diff --git a/interfaces/blas/C/testing/c_sblat1.f b/interfaces/blas/C/testing/c_sblat1.f
|
|
|
33fa5a |
index 1fc6dce..b97ed0b 100644
|
|
|
33fa5a |
--- a/interfaces/blas/C/testing/c_sblat1.f
|
|
|
33fa5a |
+++ b/interfaces/blas/C/testing/c_sblat1.f
|
|
|
33fa5a |
@@ -247,11 +247,11 @@
|
|
|
33fa5a |
IF (ICASE.EQ.7) THEN
|
|
|
33fa5a |
* .. SNRM2TEST ..
|
|
|
33fa5a |
STEMP(1) = DTRUE1(NP1)
|
|
|
33fa5a |
- CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC)
|
|
|
33fa5a |
+ CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC)
|
|
|
33fa5a |
ELSE IF (ICASE.EQ.8) THEN
|
|
|
33fa5a |
* .. SASUMTEST ..
|
|
|
33fa5a |
STEMP(1) = DTRUE3(NP1)
|
|
|
33fa5a |
- CALL STEST1(SASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC)
|
|
|
33fa5a |
+ CALL STEST1(SASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC)
|
|
|
33fa5a |
ELSE IF (ICASE.EQ.9) THEN
|
|
|
33fa5a |
* .. SSCALTEST ..
|
|
|
33fa5a |
CALL SSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
|
|
|
33fa5a |
--
|
|
|
33fa5a |
2.24.1
|
|
|
33fa5a |
|