Test REREAD also.

diff --git a/tests/language/stats/matrix.at b/tests/language/stats/matrix.at
index 8f1dba5d7f7d950958091a4e5a5229a6d9f1240a..87d9701a84a6aef19cbd8e53495f90caa1e8f65e 100644 (file)
--- a/tests/language/stats/matrix.at
+++ b/tests/language/stats/matrix.at
@@ -2542,6 +2542,13 @@ AT_DATA([matrix2.txt], [dnl
 23, 29, 31, 37
 41, 43, 47, 53
 ])
+AT_DATA([matrix3.txt], [dnl
+1 5
+3 1 2 3
+5 6 -1 2 5 1
+2 8 9
+3 1 3 2
+])
 AT_DATA([matrix.sps], [dnl
 MATRIX.
 READ x/FILE='matrix.txt'/SIZE=4/FIELD=1 TO 1.
@@ -2564,6 +2571,13 @@ READ x/FILE='matrix2.txt'/SIZE={1,4}/FIELD=1 TO 80.
 COMPUTE y={y; x}.
 END LOOP.
 PRINT y.
+
+COMPUTE m = MAKE(5, 5, 0).
+LOOP i = 1 TO 5.
+READ count /FILE='matrix3.txt' /FIELD=1 TO 1 /SIZE=1.
+READ m(i, 1:count) /FIELD=3 TO 100 /REREAD.
+END LOOP.
+PRINT m.
 END MATRIX.
 ])
 AT_CHECK([pspp matrix.sps], [0], [dnl
@@ -2599,6 +2613,13 @@ y
   11  13  17  19
   23  29  31  37
   41  43  47  53
+
+m
+  5  0  0  0  0
+  1  2  3  0  0
+  6 -1  2  5  1
+  8  9  0  0  0
+  1  3  2  0  0
 ])
 AT_CLEANUP