<unit name="ok_link_function_type">
  <routine name="Test" declaration="procedure Test(F: TMyFunction; R: TMyRecord);" type="procedure">
    <description><abstract>Give TMyFunction and TMyRecord to test it.</abstract></description>
  </routine>
  <type name="TMyFunction" declaration="TMyFunction = function(A: Integer): Integer;">
  </type>
  <structure name="TMyRecord" name_with_generic="TMyRecord" type="record">
    <variable name="A" declaration="A: Integer;" visibility="public">
    </variable>
  </structure>
</unit>
