mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:28:12 +02:00
23 lines
329 B
ObjectPascal
23 lines
329 B
ObjectPascal
{ %fail }
|
|
|
|
{ use a structured type used to keep the namings clean }
|
|
type
|
|
tLoopParm =
|
|
record
|
|
Min,
|
|
Max,
|
|
Cur : word;
|
|
end {tLoopParm};
|
|
var
|
|
One,
|
|
Two,
|
|
Three,
|
|
Four : tLoopParm;
|
|
begin
|
|
One.Min := 42;
|
|
One.Max := 42;
|
|
for One.Cur := One.Min to One.Max do
|
|
begin
|
|
end {for One};
|
|
end {Bug}.
|