freepascal.compiler/tests/tbf0110.pp

{ $OPT= -Fu../compiler }

uses aasm;

Begin
  Case Pai(hp1)^.typ Of
    ait_instruction:
  End
End.