From 7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0 Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Mon, 11 Jul 2016 09:15:44 -0600 Subject: [PATCH] Making FORTRAN compilers happy. Replacing STEMP by STEMP(1) in some subroutine calls. Reported by Hans Johnson. Thanks Hans. Julien. --- CBLAS/testing/c_dblat1.f | 4 ++-- CBLAS/testing/c_sblat1.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/CBLAS/testing/c_dblat1.f b/CBLAS/testing/c_dblat1.f index 0aeba45..c570a91 100644 --- a/CBLAS/testing/c_dblat1.f +++ b/CBLAS/testing/c_dblat1.f @@ -211,11 +211,11 @@ IF (ICASE.EQ.7) THEN * .. DNRM2TEST .. STEMP(1) = DTRUE1(NP1) - CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.8) THEN * .. DASUMTEST .. STEMP(1) = DTRUE3(NP1) - CALL STEST1(DASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(DASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.9) THEN * .. DSCALTEST .. CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX) diff --git a/CBLAS/testing/c_sblat1.f b/CBLAS/testing/c_sblat1.f index de2b038..773787d 100644 --- a/CBLAS/testing/c_sblat1.f +++ b/CBLAS/testing/c_sblat1.f @@ -211,11 +211,11 @@ IF (ICASE.EQ.7) THEN * .. SNRM2TEST .. STEMP(1) = DTRUE1(NP1) - CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.8) THEN * .. SASUMTEST .. STEMP(1) = DTRUE3(NP1) - CALL STEST1(SASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(SASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.9) THEN * .. SSCALTEST .. CALL SSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX) -- 2.7.4