externalroutine toplev
  longreal lr1
  integer i, i1 = 1, i2 = 2, i3 = 3, k,k1,k2,k3
  
  if i2 = i3 then i = i1
  test:
  if k2 = k3 then start
    k = k1
  finish

end
endoffile