The R Project SVN R

Rev

Rev 64299 | Rev 69829 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

--- dlapack.f.orig  2015-12-30 12:37:21.000000000 +0000
+++ dlapack.f   2015-12-30 12:42:25.000000000 +0000
@@ -19077,7 +19077,8 @@
 *
 *        Compute Householder transform when N=1
 *
-         CALL DLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T )
+*  R change to stop gfortran warning
+         CALL DLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) )
 *         
       ELSE
 *