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)
kages/slang.scm'>
<input type='hidden' name='id' value='fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7'/><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=fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7'>root</a>/<a href='/guix/log/gnu?id=fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7'>gnu</a>/<a href='/guix/log/gnu/packages?id=fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7'>packages</a>/<a href='/guix/log/gnu/packages/slang.scm?id=fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7'>slang.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/packages/slang.scm?id=fbc3b802b7e4ff5eebefba1d2ec717e7fed05bc7&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-03-16 09:08:31 -0400'>2018-03-16</span></td><td><a href='/guix/commit/gnu/packages/slang.scm?id=6cbee49d6668eb7fd738080666f66febfce8c7e8'>gnu: All snippets report errors using exceptions, else return #t.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-02-21 15:02:47 +0100'>2018-02-21</span></td><td><a href='/guix/commit/gnu/packages/slang.scm?id=61faf24df66bdade0ec780d4a5e5e3d461329341'>gnu: slang: Update to 2.3.1a.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-21 20:40:29 +0100'>2018-01-21</span></td><td><a href='/guix/commit/gnu/packages/slang.scm?id=982dab0ba73a8556bb5ab65bf199efbd1f2b508b'>gnu: newt: Update to 0.52.20.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
:13:08 +0200'>2017-10-25</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=06c13046525fc1068625eda0efe588c121002a90'>gnu: sssd: Update to 1.16.0.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-10-25 18:13:08 +0200'>2017-10-25</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=3d96f2320aa30379821315859116a829a0970c7b'>gnu: ding-libs: Update to 0.6.1.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-07-29 01:08:17 +0200'>2017-07-29</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=4f9dd97e658a8ddc1b672de7af0af8b8aaa4749f'>gnu: sssd: Update to 1.15.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-05-16 00:00:03 +0200'>2017-05-16</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=a068300628e9490d7db3f610699ea8c693946e3d'>gnu: bind: Rename variable to 'isc-bind'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-15 21:28:29 +0200'>2017-05-15</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=7fe4e556c03289753b1594e257446fb0306c44b7'>gnu: Add sssd.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-05-15 21:26:50 +0200'>2017-05-15</span></td><td><a href='/guix/commit/gnu/packages/sssd.scm?id=dbe874dcbf349b1629a7222db3d7c14241ad5606'>gnu: Add ding-libs.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>