blob: 013deea8d2dae7b81f279163634f76028aaa8fb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %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.
|
