begin
  switch test1, test2 ( -1 : 1 )
  integer i = 0
  test1(0):
  ->test2(i)
  test2(*):
  test2(1):
  test2(-1):
endofprogram