13 lines
173 B
ObjectPascal
13 lines
173 B
ObjectPascal
{ -*- opascal -*- }
|
|
|
|
procedure Toto ();
|
|
begin
|
|
for i := 0 to 1 do
|
|
Write (str.Chars[i]);
|
|
|
|
// bug#36348
|
|
for var i := 0 to 1 do
|
|
Write (str.Chars[i]);
|
|
|
|
end;
|