mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 17:22:35 +02:00
33 lines
533 B
ObjectPascal
33 lines
533 B
ObjectPascal
{ %target=linux }
|
|
|
|
{ Source provided for Free Pascal Bug Report 3161 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-06-12 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
initc,
|
|
SysUtils,
|
|
math;
|
|
|
|
var A:Extended;
|
|
err : boolean;
|
|
begin
|
|
SetExceptionMask([]);
|
|
err:=true;
|
|
try
|
|
{ When I don't do "uses Libc",
|
|
this line raises RE 205 (EOverflow). }
|
|
A:=1e800; Writeln(Exp(A));
|
|
except
|
|
writeln('Exception raised');
|
|
err:=false;
|
|
end;
|
|
if err then
|
|
begin
|
|
writeln('error');
|
|
halt(1);
|
|
end;
|
|
end.
|