* new test

git-svn-id: trunk@5971 -

.gitattributes

@@ -7945,6 +7945,7 @@ tests/webtbs/tw7975a.pp svneol=native#text/plain
 tests/webtbs/tw8018.pp svneol=native#text/plain
 tests/webtbs/tw8028.pp svneol=native#text/plain
 tests/webtbs/tw8049.pp svneol=native#text/plain
+tests/webtbs/tw8055.pp svneol=native#text/plain
 tests/webtbs/tw8090.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain

tests/webtbs/tw8055.pp

@@ -0,0 +1,42 @@
+{$mode objfpc}
+program VariantTest;
+
+uses variants;
+
+var
+    i: integer;
+    laenge: integer;
+    integerbuffer: integer;
+    integerarray: variant;
+    singlebuffer: single;
+    singlearray: variant;
+    error : boolean;
+begin
+    laenge := 20;
+    integerarray := VarArrayCreate([1,laenge],varInteger);
+    singlearray  := VarArrayCreate([1,laenge],varSingle);
+    for i := 1 to laenge do
+    begin
+	integerbuffer := i;
+	singlebuffer  := i;
+	integerarray[i] := integerbuffer;
+	singlearray[i]  := singlebuffer;
+    end;
+
+    writeln ('** Program VariantTest **');
+    writeln;
+    writeln ('integerarray singlearray');
+    writeln;
+    error:=false;
+    for i := 1 to laenge do
+    begin
+	integerbuffer := integerarray[i];
+	singlebuffer  := singlearray[i];
+	writeln (integerbuffer:12, singlebuffer:12:7);
+        error:=error or (integerbuffer<>singlebuffer);
+    end;
+    if error then
+      halt(1)
+    else
+      writeln('ok');
+end.