mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 18:44:04 +02:00
19 lines
225 B
ObjectPascal
19 lines
225 B
ObjectPascal
{ %OPT=-Oodfa -Sew -vw}
|
|
{ %NORUN}
|
|
{ %FAIL}
|
|
|
|
program tdfa1;
|
|
|
|
procedure p;
|
|
var
|
|
counter: Integer;
|
|
c1: Word;
|
|
begin
|
|
repeat
|
|
c1 := counter; // counter not initialized
|
|
counter:=15;
|
|
until counter>=10;
|
|
end;
|
|
|
|
begin
|
|
end. |