Define type conversions explicitly (Reference-LAPACK PR 703)

2022-11-19 15:04:30 +01:00
parent 35295912a3
commit 08bc43c73d
16 changed files with 40 additions and 34 deletions
--- a/lapack-netlib/SRC/dsysv_rk.f
+++ b/lapack-netlib/SRC/dsysv_rk.f
@@ -280,7 +280,7 @@
            LWKOPT = 1
         ELSE
            CALL DSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO )
-            LWKOPT = WORK(1)
+            LWKOPT = INT( WORK( 1 ) )
         END IF
         WORK( 1 ) = LWKOPT
      END IF