mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:07:54 +02:00
14 lines
251 B
ObjectPascal
14 lines
251 B
ObjectPascal
{ %fail }
|
|
{ Source provided for Free Pascal Bug Report 4695 }
|
|
{ Submitted by "Ales Katona" on 2006-01-13 }
|
|
{ e-mail: almindor@gmail.com }
|
|
program test;
|
|
|
|
var
|
|
i: Integer;
|
|
begin
|
|
for i:=0 to 5 do
|
|
for i:=5 downto 0 do
|
|
Writeln('LOOPY');
|
|
end.
|