externalroutine nested for backtrace test
    owninteger anything = 1234

    routine fred(integer n)
      integer x, y
      x = y + n
    end

    integerfn jim
      fred(3)
      result = 42
    end

    integer q

    q = jim
  end

externalroutine top level(integer random number)
  integer blech
  
  blech = 42 + random number
  
  nested for backtrace test
end

begin

top level(17)

endofprogram