<unit name="ok_ignore_marker">
  <routine name="P" declaration="procedure P;" type="procedure">
  </routine>
  <constant name="A" declaration="A = 1;">
  </constant>
  <constant name="B" declaration="B = 1;">
  </constant>
  <type name="T" declaration="T = T;">
    <aliased-name>T</aliased-name>
  </type>
</unit>
