mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
16 lines
480 B
ObjectPascal
16 lines
480 B
ObjectPascal
{ %OPT=-CE }
|
|
{ %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.
|