mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
16 lines
156 B
ObjectPascal
16 lines
156 B
ObjectPascal
{ %fail }
|
|
type oWord = record q1,q2 : qword; end;
|
|
|
|
procedure megadoodoo;
|
|
var a : oWord;
|
|
|
|
begin
|
|
for a:=0 to 3 do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|