+ added some 769 variants

tests/webtbs/tw0769.pp

@@ -1,3 +1,7 @@
+{ %OPT=-Sew }
+{ this should generate no warning }
+
+{$mode tp}
 
 Program test;
 

tests/webtbs/tw0769b.pp

@@ -0,0 +1,24 @@
+{ %OPT=-Sew }
+{ %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.

tests/webtbs/tw0769c.pp

@@ -0,0 +1,24 @@
+{ %OPT=-Sew }
+{ %fail }
+{ this should generate a warning
+  because s is not initialized }
+
+{$mode tp}
+
+Program test;
+
+type
+  SimpleProc = function : integer;
+
+procedure test_provar;
+var x,y:integer;
+    s : SimpleProc;
+
+begin
+  {y:=5;
+  for x:=0 to 10 do if x<y then writeln(x);}
+  x:=s;
+end;
+
+begin
+end.