pintos-os.org Git - pspp/blob - 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