From 04b8feeaa9c79c9aca981f86ea9b1d44a870192a Mon Sep 17 00:00:00 2001
From: Vladimir Chalupecky <vladimir.chalupecky@gmail.com>
Date: Sun, 5 Feb 2017 20:48:11 +0100
Subject: [PATCH] native: always return optimum lwork in work[0]

---
 native/dorgtr.go | 1 +
 1 file changed, 1 insertion(+)

diff --git a/native/dorgtr.go b/native/dorgtr.go
index 463ed53c..6822079e 100644
--- a/native/dorgtr.go
+++ b/native/dorgtr.go
@@ -95,4 +95,5 @@ func (impl Implementation) Dorgtr(uplo blas.Uplo, n int, a []float64, lda int, t
 			impl.Dorgqr(n-1, n-1, n-1, a[lda+1:], lda, tau, work, lwork)
 		}
 	}
+	work[0] = float64(lworkopt)
 }