tests/webtbf/tw4781a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }
{ %OPT=-Sew -vw}
program tw4781a;
var U : integer;

procedure B; 
begin 
if U = 0 then; 
if U = 0 then; 
end;

begin
   if  U = 1 then writeln('UNdetected');
end.