paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 03:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enable all applicable exceptions and perform both tests if one succeeds

Browse Source 
git-svn-id: trunk@5136 -
This commit is contained in:
Jonas Maebe 2006-11-01 00:07:07 +00:00
parent 3232e59810
commit a200cae8af
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/webtbs/tw3157.pp
View File

@ -10,7 +10,10 @@ var
c:Single;
temp_float:double;
temp_int:Integer;
notcaught: integer;
begin
notcaught := 2;
SetExceptionMask(GetExceptionMask - [exOverflow,exUnderflow,exPrecision]);
try
{ cosh(800) =~ 1.36E+0347, this will fit in Extended but will
not fit in Single or Double.
@ -21,7 +24,7 @@ begin
on E:Exception do
begin
Writeln('Line "c:=..." raised ' +E.ClassName+ ': ' +E.Message);
halt(0);
dec(notcaught);
end;
end;
@ -36,7 +39,10 @@ begin
temp_int:=Round(temp_float);
except
on E:Exception do
Writeln('Line "temp_int:=..." raised ' +E.ClassName+ ': ' +E.Message);
begin
Writeln('Line "temp_int:=..." raised ' +E.ClassName+ ': ' +E.Message);
dec(notcaught);
end;
end;
halt(1);
halt(notcaught);
end.