Define type conversions explicitly (Reference-LAPACK PR703)

2022-11-19 19:15:09 +01:00
parent 4ab4d6ff82
commit 15967809ad
1 changed files with 1 additions and 1 deletions
--- a/lapack-netlib/SRC/cggrqf.f
+++ b/lapack-netlib/SRC/cggrqf.f
@@ -275,7 +275,7 @@
 *     RQ factorization of M-by-N matrix A: A = R*Q
 *
      CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
-      LOPT = REAL( WORK( 1 ) )
+      LOPT = INT( WORK( 1 ) )
 *
 *     Update B := B*Q**H
 *