--- SRC/dgesvd.f	2011-11-12 04:34:11.000000000 +0900
+++ SRC/dgesvd.f	2012-03-12 16:38:41.000000000 +0900
@@ -477,7 +477,7 @@
             CALL DGELQF( M, N, A, LDA, DUM(1), DUM(1), -1, IERR )
             LWORK_DGELQF=DUM(1)
 *           Compute space needed for DORGLQ
-            CALL DORGLQ( N, N, M, VT, LDVT, DUM(1), DUM(1), -1, IERR )
+            CALL DORGLQ( N, N, M, DUM(1), N, DUM(1), DUM(1), -1, IERR )
             LWORK_DORGLQ_N=DUM(1)
             CALL DORGLQ( M, N, M, A, LDA, DUM(1), DUM(1), -1, IERR )
             LWORK_DORGLQ_M=DUM(1)
