blob: 51c76c9af7b0bf63f2ae3c87fff5ca9a8067750b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ 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.
|
