mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-13 06:50:39 -08:00
12 lines
173 B
ObjectPascal
12 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;
|