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

Also accept EMathError exception

Browse Source
This commit is contained in:
Pierre Muller 2024-09-25 05:55:17 -07:00
parent cbd4e681d0
commit 3707000121
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw37468.pp
View File

@ -14,11 +14,19 @@ begin
writeln(power(a,b));
except
on e: EZeroDivide do begin
writeln('EZeroDivide Exception: ',e.Message);
writeln(Infinity);
end;
on e: EMathError do begin
writeln('MathError Exception: ',e.Message);
writeln(Infinity);
end;
end;
except
halt(1);
on e:Exception do begin
writeln('Error: exception at wrong level: ',e.Message);
halt(1);
end;
end;
writeln('ok');
end.