freepascal.compiler/tests/test/texception8.pp

{ %version=1.1 }
{ %fail }
uses
  sysutils;

begin
  // this should fail with a runtime error
  try
    raise ETestException.Create;
  except
    ReleaseExceptionObject;
  end;
end.