fpcsrc/tests/test/opt/tdfa1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %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.