fpc/tests/tbf/tb0020.pp
2000-12-03 21:50:07 +00:00

10 lines
172 B
ObjectPascal

{ %FAIL }
{ Old file: tbf0110.pp }
{ SigSegv when using undeclared var in Case OK 0.99.6 (PFV) }
Begin
Case Pai(hp1)^.typ Of
ait_instruction:
End
End.