MATRIX: Fix multiplication of empty matrices.

[pspp] / tests / language / commands / matrix.at

diff --git a/tests/language/commands/matrix.at b/tests/language/commands/matrix.at
index 8412468ac9722a2de485329e4604c0626f1d9f27..9ebd23671f8939a1d826c9cc2817845a7780175d 100644 (file)
--- a/tests/language/commands/matrix.at
+++ b/tests/language/commands/matrix.at
@@ -9,6 +9,9 @@ COMPUTE b={a; 1; 2; 3}.
 PRINT b.
 COMPUTE c={a, 1, 2, 3}.
 PRINT c.
+/* Multiplication of empty matrices previously assert-failed in blas.
+COMPUTE d = a * a.
+PRINT d.
 END MATRIX.
 ])
 AT_CHECK([pspp matrix.sps], [0], [dnl
@@ -21,6 +24,8 @@ b
 
 c
   1  2  3
+
+d
 ])
 AT_CLEANUP