externalroutine toplev
  longreal lr1
  integer i, i1 = 1, i2 = 2, i3 = 3

  if i2 = i3 then start
    i = i1
  finish else start
    i = i2
  finish

        
end
endoffile