fpc/tests/tbf/tb0160.pp
2004-02-28 10:52:05 +00:00

14 lines
124 B
ObjectPascal

{%fail}
{%OPT=-Sg}
program tb0160;
procedure crasher;
begin
end;
begin
{The following caused ie 9999.}
crasher:
end.