paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ exception level test

Browse Source
This commit is contained in:
pierre 2000-04-14 05:46:47 +00:00
parent c93f715239
commit fa407afadd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/divexcp.pp
View File

@ -21,7 +21,7 @@ procedure test_exception(const s : string);
var
i,j : longint;
e : extended;
exception_count : longint;
exception_count,level : longint;
begin
j:=0;
i:=100;
@ -81,15 +81,20 @@ begin
end;
test_exception('third division by zero for integers');
exception_count:=0;
level:=0;
for j:=1 to TestNumber do
begin
try
i:=0;
inc(level);
e:=j/i;
except
on e : exception do
begin
inc(exception_count);
if level>1 then
Writeln('exception overrun');
dec(level);
end;
end;