mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 21:49:24 +01:00
25 lines
439 B
ObjectPascal
25 lines
439 B
ObjectPascal
Program MathX;
|
|
|
|
Const
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
MinExtendedStr=' 3.6451995318824746E-4951';
|
|
MinExtended=3.64519953188247460E-4951;
|
|
{$else}
|
|
MinExtendedStr=' 4.94065645841247E-324';
|
|
MinExtended=4.94065645841247E-324;
|
|
{$endif}
|
|
|
|
Var
|
|
x:extended;
|
|
s:shortstring;
|
|
|
|
Begin
|
|
val(MinExtendedStr,x);
|
|
str(x,s);
|
|
if (x=0.0) or
|
|
(x<>minextended) or
|
|
(s<>MinExtendedStr) then
|
|
halt(1);
|
|
End.
|
|
|