+ added

git-svn-id: trunk@2039 -

.gitattributes

@@ -5924,6 +5924,10 @@ tests/webtbf/tw4256.pp svneol=native#text/plain
 tests/webtbf/tw4359.pp svneol=native#text/plain
 tests/webtbf/tw4445.pp svneol=native#text/plain
 tests/webtbf/tw4529.pp svneol=native#text/plain
+tests/webtbf/tw4554a.pp svneol=native#text/plain
+tests/webtbf/tw4554b.pp svneol=native#text/plain
+tests/webtbf/tw4554c.pp svneol=native#text/plain
+tests/webtbf/tw4554d.pp svneol=native#text/plain
 tests/webtbf/tw4569a.pp svneol=native#text/plain
 tests/webtbf/tw4569b.pp svneol=native#text/plain
 tests/webtbf/tw4619a.pp -text svneol=unset#text/plain

tests/webtbf/tw4554a.pp

@@ -0,0 +1,12 @@
+{ %fail }
+{ %opt=-vw -Sew }
+
+procedure rrr;    
+var arr, nar: array[0..1] of integer;
+begin
+  arr:=nar; 
+end; { my NEVER = no warning, regardless if in a proc or not }
+
+BEGIN
+  rrr ;
+END.

tests/webtbf/tw4554b.pp

@@ -0,0 +1,12 @@
+{ %fail }
+{ %opt=-vw -Sew }
+
+procedure rrr;    
+var bar, ear: array[0..1] of integer;
+begin
+  ear[1]:=bar[1];
+end; 
+
+BEGIN
+  rrr ;
+END.

tests/webtbf/tw4554c.pp

@@ -0,0 +1,12 @@
+{ %fail }
+{ %opt=-vw -Sew }
+
+procedure rrr;    
+var bar: array[0..1] of integer;
+begin
+  if bar[1]=1 then;
+end;
+
+BEGIN
+  rrr ;
+END.

tests/webtbf/tw4554d.pp

@@ -0,0 +1,12 @@
+{ %fail }
+{ %opt=-vw -Sew }
+
+procedure rrr;
+var zar: array[0..1] of integer;
+begin
+  zar:=zar;
+end;
+
+BEGIN
+  rrr ;
+END.