Define type conversions explicitly (Reference-LAPACK PR 703)

2022-11-19 14:57:54 +01:00
parent ec0ae034bc
commit 35295912a3
17 changed files with 43 additions and 43 deletions
--- a/lapack-netlib/SRC/cgglse.f
+++ b/lapack-netlib/SRC/cgglse.f
@@ -276,7 +276,7 @@
 *
      CALL CGGRQF( P, M, N, B, LDB, WORK, A, LDA, WORK( P+1 ),
     $             WORK( P+MN+1 ), LWORK-P-MN, INFO )
-      LOPT = REAL( WORK( P+MN+1 ) )
+      LOPT = INT( WORK( P+MN+1 ) )
 *
 *     Update c = Z**H *c = ( c1 ) N-P
 *                       ( c2 ) M+P-N