tests/pcs-if.stat

   1 title 'Test PROCESS IF utility'.
   2
   3 data list /x 1-2.
   4 begin data.
   5 1
   6 2
   7 3
   8 4
   9 5
  10 6
  11 7
  12 8
  13 9
  14 10
  15 end data.
  16 process if mod(x,2) ~= 0.
  17 list.
  18 compute x = x*3.
  19 process if mod(x,2) = 0.
  20 list.
  21