freepascal.compiler/bugs/bug0110.pp

uses aasm;

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