begin
  ! testing to see if scopes get messed up.
  ! trying to reproduce error from tests/imptoc/rt25a.i which was fixed in tests/test106.imp by renaming second declaration of Q()
  integer qwerty
  routine mess me up
    integer k
    integername qwerty
    routine nested again
      routine qwerty(real r,s,t)
      end
    end
    qwerty == k
    qwerty = 1
  end
  integer i
  qwerty = 2
  i = qwerty
endofprogram