fpcsrc/tests/test/texception8.pp


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

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

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