<unit name="ok_weird_record.dpr">
  <constant name="val1 = 1;">
  </constant>
  <constant name="val2 = 2;">
  </constant>
  <constant name="val4 = 4;">
  </constant>
  <constant name="byRef = 8;">
  </constant>
  <structure name="TWeirdRecord" name_with_generic="TWeirdRecord" type="record">
    <variable name="bVal: Byte">
    </variable>
    <variable name="iVal: Smallint">
    </variable>
    <variable name="lVal: Longint">
    </variable>
    <variable name="pbVal: ^Byte">
    </variable>
    <variable name="piVal: ^Smallint">
    </variable>
    <variable name="plVal: ^Longint">
    </variable>
  </structure>
</unit>
