%begin
  %routinespec jim
  %integer i
  i = 1
  %routine jim
    i = 2
  %end
%endofprogram