Fix assertion for proper Huffman merge pattern: 0 == 1 modulo 1.
[pspp] / tests / do-repeat.stat
1 title 'Test DO REPEAT control structure'.
2
3 set echo on.
4 data list file='list.data'/var00001 to var00005 1-5.
5 string s1 to s5(a8).
6 vector s=s1 to s5.
7 do repeat v=var1 to var5/r=region1 to region5/x=0 to 4
8    /y=10 to 6/z='abcd',x'010203','alksdj'+'fklasdjfladsf','al''ksj','iouio'
9    /longname=var00001 to var00005.
10 compute v=2**x.
11 compute v=x.
12 compute r=v.
13 compute longname=r.
14 compute s(x+1)=z.
15 end repeat print.
16 list.
17