checkin of 0.3.0
[pspp] / tests / loop.stat
1 title 'Test LOOP procedure'.
2
3 data list /x 1 y 2 z 3.
4 begin data.
5 125
6 256
7 397
8 401
9 end data.
10 loop i=y to z by abs(z-y)/(z-y).
11 print /x i.
12 break.          /* Generates warning.
13 end loop.
14 execute.