tests/test/texception9.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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

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