tests/webtbf/tw0769b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{ %OPT=-Sew -vw }
{ %fail }
{ this should generate a warning
  because s is not initialized }

{$mode tp}

Program test;

type
  SimpleProc = Procedure;

procedure test_provar;
var x,y:integer;
    s : SimpleProc;

begin
  {y:=5;
  for x:=0 to 10 do if x<y then writeln(x);}
  s;
end;

begin
end.