paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Check that a normal real division does not generate an exception

Browse Source
This commit is contained in:
Pierre Muller 2024-12-03 12:09:05 +01:00
parent 1f2ecc9a42
commit 564d50ce8e
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/test/texception4.pp
View File

@ -20,6 +20,15 @@ procedure test_exception(const s : string);
end;
end;
procedure test_no_exception(const s : string);
begin
if exception_called then
begin
Writeln('Unexpected exception called : ',s);
Program_has_errors := true;
end;
end;
var
i,j : longint;
e : extended;
@ -62,6 +71,17 @@ begin
test_exception('First division by zero for reals');
try
exception_called:=false;
e:=i/(j+3.5);
except
on e : exception do
begin
Writeln('Wrong exception called ',e.message);
exception_called:=true;
end;
end;
test_no_exception('Allowed division by zero for reals after first division by zero for reals');
try
exception_called:=false;
e:=i/j;
except
on e : exception do