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

no message

Browse Source
This commit is contained in:
florian 2004-08-08 09:36:48 +00:00
parent 02310c99e2
commit e966c1d79d
3 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw3160a.pp Normal file
View File

@ -0,0 +1,16 @@
{ %RESULT=207 }
{ Source provided for Free Pascal Bug Report 3160 }
{ Submitted by "Michalis Kamburelis" on 2004-06-12 }
{ e-mail: michalis@camelot.homedns.org }
var A:Extended;
begin
{ All lines below will raise runtime error 207
(Invalid floating point operation, converted to EInvalidOp exception)
under Win32.
But under Linux they raise runtime error 216
(General protection fault, converted to EAccessViolation). }
A:=0; Writeln(0 / A);
A:=-3; Writeln(Ln(A));
A:=-3; Writeln(Sqrt(A));
end.

14
tests/webtbs/tw3160b.pp Normal file
View File

@ -0,0 +1,14 @@
{ %RESULT=207 }
{ Source provided for Free Pascal Bug Report 3160 }
{ Submitted by "Michalis Kamburelis" on 2004-06-12 }
{ e-mail: michalis@camelot.homedns.org }
var A:Extended;
begin
{ All lines below will raise runtime error 207
(Invalid floating point operation, converted to EInvalidOp exception)
under Win32.
But under Linux they raise runtime error 216
(General protection fault, converted to EAccessViolation). }
A:=-3; Writeln(Ln(A));
end.

14
tests/webtbs/tw3160c.pp Normal file
View File

@ -0,0 +1,14 @@
{ %RESULT=207 }
{ Source provided for Free Pascal Bug Report 3160 }
{ Submitted by "Michalis Kamburelis" on 2004-06-12 }
{ e-mail: michalis@camelot.homedns.org }
var A:Extended;
begin
{ All lines below will raise runtime error 207
(Invalid floating point operation, converted to EInvalidOp exception)
under Win32.
But under Linux they raise runtime error 216
(General protection fault, converted to EAccessViolation). }
A:=-3; Writeln(Sqrt(A));
end.