mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
0a4314206f
* never throw range/overflow check errors for floats in delphi mode, resolves #7584 git-svn-id: trunk@10940 -
12 lines
89 B
ObjectPascal
12 lines
89 B
ObjectPascal
program bug;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
const
|
|
Inf = 1.0 / 0.0;
|
|
|
|
begin
|
|
end.
|