Explorar o código

* fixed compilation

git-svn-id: trunk@6367 -
tom_at_work %!s(int64=18) %!d(string=hai) anos
pai
achega
499d77d975
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      tests/tbs/tb0528.pp

+ 1 - 1
tests/tbs/tb0528.pp

@@ -20,7 +20,7 @@ begin
   a[$ffffffff]:=1;
   a[$ffffffff]:=1;
   b[$ffffffff]:=2;
   b[$ffffffff]:=2;
   c[$ffffffff]:=3;
   c[$ffffffff]:=3;
-  if a+b+c<>6 then
+  if (a[$ffffffff]+b[$ffffffff]+c[$ffffffff])<>6 then
     halt(1);
     halt(1);
   writeln(a[$ffffffff]);
   writeln(a[$ffffffff]);
   writeln(b[$ffffffff]);
   writeln(b[$ffffffff]);