mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:48:11 +02:00
16 lines
246 B
ObjectPascal
16 lines
246 B
ObjectPascal
{ %OPT=-Sen -vnw }
|
|
{ %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.
|