paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source 
git-svn-id: trunk@2039 -
This commit is contained in:
Jonas Maebe 2005-12-23 21:20:36 +00:00
parent 857664a5d4
commit 25bc4956a2
5 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -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

12
tests/webtbf/tw4554a.pp Normal file
View File

@ -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.

12
tests/webtbf/tw4554b.pp Normal file
View File

@ -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.

12
tests/webtbf/tw4554c.pp Normal file
View File

@ -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.

12
tests/webtbf/tw4554d.pp Normal file
View File

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