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.