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)