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)
vices/linux.scm'>
<input type='hidden' name='id' value='8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7'>root</a>/<a href='/guix/log/gnu?id=8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7'>gnu</a>/<a href='/guix/log/gnu/services?id=8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7'>services</a>/<a href='/guix/log/gnu/services/linux.scm?id=8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7'>linux.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/linux.scm?id=8a3b574b9c7ae6806247aefb22e6597c0ea4a8b7&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-04 21:32:32 +0300'>2023-05-04</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=f66344ed81c47df6cf4606469b8f4c5732f4b9db'>services: earlyoom: Rotate log files.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-04-02 12:35:30 +0200'>2023-04-02</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=0fbb356714f4ae3ea18e4997131a0e1746cc923c'>services: replace bare serializers with (serializer ...)</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-28 22:22:51 -0400'>2023-03-28</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=f215d801277a60cc1d862ed59c179cb8a482ced5'>services: fstrim: Fix schedule ungexp.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-22 10:09:03 -0400'>2023-03-22</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=72ef1bef07c00cda9b26af70e1fbb3c28b0824ad'>services: Add fstrim-service-type.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-06-11 00:57:13 -0400'>2022-06-11</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=a99015c8783eb5281618173779a0550b15a79617'>system: Align zram priority with swap-space spec to clarify.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2021-04-24 12:30:01 -0400'>2021-04-24</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=2c93df3d11bf8ceeb5c203416a2533cf32275e1a'>services: Add a service for rasdaemon.</a><span class='msg-avail'>...</span></td><td>B. Wilson</td></tr>
<tr><td><span title='2021-02-08 03:34:40 +0100'>2021-02-08</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=fe7529d71b8d7b09b48679c86e1155895afd92a4'>gnu: Remove 'file-systems requirement from kernel-module-loader.</a><span class='msg-avail'>...</span></td><td>raid5atemyhomework</td></tr>
<tr><td><span title='2021-01-06 19:18:58 +0100'>2021-01-06</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=3d3185b54448cb44fffc1badc8c1cf51bb76585d'>services: kernel-module-loader: Return a single 'shepherd-service'.</a><span class='msg-avail'>...</span></td><td>Brice Waegeneire</td></tr>