mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
9dbd69c307
realconstnodes to types with less precision than the default (bug 4898) git-svn-id: trunk@2957 -
13 lines
220 B
ObjectPascal
13 lines
220 B
ObjectPascal
{ %OPT=-Sewh -vwh}
|
|
|
|
{ Source provided for Free Pascal Bug Report 4898 }
|
|
{ Submitted by "Naj Kejah" on 2006-03-13 }
|
|
{ e-mail: universario@hotmail.com }
|
|
program aFP211p;
|
|
var R : real;
|
|
begin
|
|
R:=0.0;
|
|
writeln(r);
|
|
end.
|
|
|