* initial revision

git-svn-id: trunk@1538 -
This commit is contained in:
florian 2005-10-19 19:25:49 +00:00
parent 43a60ccfe2
commit 46c9d03d82
2 changed files with 12 additions and 0 deletions

1
.gitattributes vendored
View File

@ -6230,6 +6230,7 @@ tests/webtbs/tw3691.pp svneol=native#text/plain
tests/webtbs/tw3694.pp svneol=native#text/plain
tests/webtbs/tw3695.pp svneol=native#text/plain
tests/webtbs/tw3697.pp svneol=native#text/plain
tests/webtbs/tw3700.pp -text svneol=unset#text/plain
tests/webtbs/tw3708.pp svneol=native#text/plain
tests/webtbs/tw3719.pp svneol=native#text/plain
tests/webtbs/tw3721.pp svneol=native#text/plain

11
tests/webtbs/tw3700.pp Normal file
View File

@ -0,0 +1,11 @@
{ Source provided for Free Pascal Bug Report 3700 }
{ Submitted by "Roman" on 2005-02-26 }
{ e-mail: roman@csltd.com.ua }
uses
variants;
var
v : olevariant;
b : boolean;
begin
b:=VarIsArray(V);
end.