freepascal.compiler/tests/tbs/tb0272.pp

{ %OPT=-Sen }
{ %RESULT=217 }

{ Old file: tbs0318.pp }

{$mode objfpc}
uses sysutils;

{ The exception is used in the raise statement, so no Note should be thrown }
var
  e  : exception;
begin
  e:=exception.create('test');
  raise e;
end.