mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
1e3137c315
which return a real but which never assigned anything to the function
result (since the caller will pop it off again) (x86-only, bug #4902)
git-svn-id: trunk@3016 -
17 lines
248 B
ObjectPascal
17 lines
248 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4902 }
|
|
{ Submitted by "Yu Hang" on 2006-03-14 }
|
|
{ e-mail: cosechy@gmail.com }
|
|
function x:real;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
x;
|
|
{anything here}
|
|
writeln(1);
|
|
writeln(2);
|
|
writeln(3);
|
|
{crash here}
|
|
writeln(1.0)
|
|
end.
|