fpcsrc/tests/test/texception7.pp


1
2
3
4
5
6
7
8
9
10

{ %version=1.1 }
{ %result=231 }

uses
  sysutils;

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