freepascal.compiler/tests/test/texception6.pp

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

uses
  SysUtils;

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