mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
23 lines
318 B
ObjectPascal
23 lines
318 B
ObjectPascal
{ %target=go32v2 }
|
|
{ %interactive }
|
|
|
|
{ check whether this program writes '*' }
|
|
|
|
Procedure Confuse;
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
Procedure TestBug(chr:word);
|
|
begin
|
|
Confuse; {if you comment it, everything is fine even in Level 2}
|
|
Mem[$B800:0]:=byte(chr);
|
|
end;
|
|
|
|
begin
|
|
writeln(#13#10#13#10);
|
|
TestBug(42); {should print '*'}
|
|
readln;
|
|
end.
|