From: Debian Science Team Date: Wed, 30 Nov 2022 08:44:31 +0000 (+0000) Subject: Fix FTBFS with gfortran 10 X-Git-Tag: archive/raspbian/3.10.3-13+rpi1^2~1 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=497bd1d4271fc6a7e691549eedc2c6050315f6f4;p=atlas.git Fix FTBFS with gfortran 10 Origin: other, https://github.com/Reference-LAPACK/lapack/commit/7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0 Bug-Debian: https://bugs.debian.org/957015 Forwarded: no Reviewed-by: Sébastien Villemot Last-Update: 2020-05-20 Last-Update: 2020-05-20 Gbp-Pq: Name gfortran-10.patch --- diff --git a/interfaces/blas/C/testing/c_dblat1.f b/interfaces/blas/C/testing/c_dblat1.f index 55ea989..7269601 100644 --- a/interfaces/blas/C/testing/c_dblat1.f +++ b/interfaces/blas/C/testing/c_dblat1.f @@ -247,11 +247,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/interfaces/blas/C/testing/c_sblat1.f b/interfaces/blas/C/testing/c_sblat1.f index 1fc6dce..b97ed0b 100644 --- a/interfaces/blas/C/testing/c_sblat1.f +++ b/interfaces/blas/C/testing/c_sblat1.f @@ -247,11 +247,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)