* added files

git-svn-id: branches/fixes_2_0@2580 -

.gitattributes

@@ -5698,6 +5698,8 @@ tests/webtbf/tw4757.pp svneol=native#text/plain
 tests/webtbf/tw4764.pp svneol=native#text/plain
 tests/webtbf/tw4777.pp svneol=native#text/plain
 tests/webtbf/tw4778a.pp svneol=native#text/plain
+tests/webtbf/tw4781a.pp svneol=native#text/plain
+tests/webtbf/tw4781b.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

tests/webtbf/tw4781a.pp

@@ -0,0 +1,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.
+

tests/webtbf/tw4781b.pp

@@ -0,0 +1,14 @@
+{ %fail }
+{ %OPT=-Sew -vw}
+program tw4781b;
+var U : integer;
+
+procedure B; 
+begin 
+if U = 0 then; 
+if U = 0 then; 
+end;
+
+begin
+end.
+