blob: 407400d8039a08ef9d1a98138dafebff2e665cae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ %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.
|
