freepascal.compiler/tests/test/texception7.pp

{ %version=1.1 }
{ %result=0 }

uses
  sysutils;

begin
  // this should fail with a runtime error
  AcquireExceptionObject;
end.