From dcb86f9c16ff8983bb1856bb8c3d1161181619c8 Mon Sep 17 00:00:00 2001
From: kortschak <dan.kortschak@adelaide.edu.au>
Date: Thu, 14 Apr 2016 12:18:43 +0930
Subject: [PATCH] cgo,native: explicitly check len(work) in Dormqr

---
 cgo/lapack.go    | 4 +++-
 native/dormqr.go | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/cgo/lapack.go b/cgo/lapack.go
index 8d804ec2..3f11e8d4 100644
--- a/cgo/lapack.go
+++ b/cgo/lapack.go
@@ -959,7 +959,9 @@ func (impl Implementation) Dormqr(side blas.Side, trans blas.Transpose, m, n, k
 		work[0] = float64(n)
 		return
 	}
-
+	if len(work) < lwork {
+		panic(badWork)
+	}
 	if left {
 		if lwork < n {
 			panic(badWork)
diff --git a/native/dormqr.go b/native/dormqr.go
index 9185a47c..6896b3bc 100644
--- a/native/dormqr.go
+++ b/native/dormqr.go
@@ -53,6 +53,9 @@ func (impl Implementation) Dormqr(side blas.Side, trans blas.Transpose, m, n, k
 		work[0] = float64(lworkopt)
 		return
 	}
+	if len(work) < lwork {
+		panic(badWork)
+	}
 	if left {
 		if lwork < n {
 			panic(badWork)