%BEGIN
{%LONG} %INTEGER L
%SWITCH SW(0:5)
%switch sparse(1:3)
%integerfn dummy
%integer sw
%end
      L=3
      ->SW(L)
SW(*):
sparse(1):sparse(*):
      PRINTSTRING("WRONG PLACE"); %STOP
SW(3):
    ->sparse(L)
sparse(3):
      PRINTSTRING("TEST OK
")
      %STOP
%ENDOFPROGRAM
