math/lapack, math/xlapack: Unbreak build with GCC 10

sorcsd2by1.f:389:40:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                                      2
......
  389 |      $                   0, V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2, 0, 0,
      |                                        1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(4)).
sorcsd2by1.f:412:35:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                            2
......
  412 |      $                   THETA, 0, 0, 1, V1T, LDV1T, U2, LDU2, U1, LDU1,
      |                                   1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(4)).
sorcsd2by1.f:436:55:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                                                2
......
  436 |      $                   THETA, 0, U2, LDU2, U1, LDU1, 0, 1, V1T, LDV1T,
      |                                                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(4)).
sorcsd2by1.f:473:23:

  347 |             CALL SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
      |                                                                  2
......
  473 |      $                 WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
      |                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:480:44:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  480 |             CALL SORGQR( P, P, Q, U1, LDU1, WORK(ITAUP1), WORK(IORGQR),
      |                                            1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:485:48:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  485 |             CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
      |                                                1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:496:57:

  362 |      $                   0, WORK(1), -1, CHILDINFO )
      |                         2
......
  496 |             CALL SORGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1),
      |                                                         1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:503:22:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                         2
......
  503 |      $                WORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1,
      |                      1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:528:23:

  370 |             CALL SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
      |                                                                  2
......
  528 |      $                 WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
      |                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:540:55:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  540 |             CALL SORGQR( P-1, P-1, P-1, U1(2,2), LDU1, WORK(ITAUP1),
      |                                                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:545:48:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  545 |             CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
      |                                                1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:550:46:

  362 |      $                   0, WORK(1), -1, CHILDINFO )
      |                         2
......
  550 |             CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1),
      |                                              1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:557:22:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                         2
......
  557 |      $                WORK(IPHI), V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2,
      |                      1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:582:23:

  393 |             CALL SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
      |                                                                  2
......
  582 |      $                 WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
      |                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:589:44:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  589 |             CALL SORGQR( P, P, Q, U1, LDU1, WORK(ITAUP1), WORK(IORGQR),
      |                                            1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:601:25:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  601 |      $                   WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO )
      |                         1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:605:46:

  362 |      $                   0, WORK(1), -1, CHILDINFO )
      |                         2
......
  605 |             CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1),
      |                                              1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:612:29:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                         2
......
  612 |      $                THETA, WORK(IPHI), 0, 1, V1T, LDV1T, U2, LDU2, U1,
      |                             1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:642:23:

  417 |             CALL SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
      |                                                                  2
......
  642 |      $                 WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
      |                       1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:655:46:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  655 |             CALL SORGQR( P, P, M-Q, U1, LDU1, WORK(ITAUP1),
      |                                              1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:665:50:

  351 |                CALL SORGQR( P, P, Q, U1, LDU1, 0, WORK(1), -1,
      |                                               2
......
  665 |             CALL SORGQR( M-P, M-P, M-Q, U2, LDU2, WORK(ITAUP2),
      |                                                  1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:674:46:

  362 |      $                   0, WORK(1), -1, CHILDINFO )
      |                         2
......
  674 |             CALL SORGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1),
      |                                              1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
sorcsd2by1.f:681:29:

  366 |      $                   0, U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, 0, 0,
      |                         2
......
  681 |      $                THETA, WORK(IPHI), U2, LDU2, U1, LDU1, 0, 1, V1T,
      |                             1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).

http://package18.nyi.freebsd.org/data/121amd64-default-PR244494/2020-06-10_18h04m44s/logs/errors/lapack-3.5.0_8.log
http://package18.nyi.freebsd.org/data/121amd64-default-PR244494/2020-06-10_18h04m44s/logs/errors/xlapack-3.5.0_6.log

PR:		246700

1 files changed, 1 insertions, 0 deletions

diff --git a/math/lapack/Makefile b/math/lapack/Makefile
index 95d5b49acb0e..e68757c7b3a5 100644
--- a/math/lapack/Makefile
+++ b/math/lapack/Makefile
@@ -27,6 +27,7 @@ SHARED_DESC=	Build shared libraries and PIC archives
 STATIC_DESC=	Build (non-PIC) archives
 
 MAKE_ENV=	BLASLIB="${BLASLIB}"
+FFLAGS+=	-std=legacy
 PLIST_SUB=	SVERSION="${SVERSION}"
 
 WRKSRC=			${WRKDIR}/lapack-${PORTVERSION}