mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-27 06:42:14 -05:00
f20de6161b
* gnu/packages/patches/atlas-gfortran-compat.patch: New file. * gnu/local.mk (dist_patch_DATA): Adjust accordingly. * gnu/packages/maths.scm (atlas)[source](patches): New field.
37 lines
1.6 KiB
Diff
37 lines
1.6 KiB
Diff
Fix build with gfortran 10.
|
|
|
|
Taken from Debian:
|
|
https://salsa.debian.org/science-team/atlas/-/blob/master/debian/patches/gfortran-10.patch
|
|
|
|
--- 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)
|
|
--- 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)
|