Explorar o código

* fixed test for 32 Bit targets

git-svn-id: trunk@45324 -
florian %!s(int64=5) %!d(string=hai) anos
pai
achega
b48c8d8596
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      tests/webtbs/tw36587.pp

+ 4 - 0
tests/webtbs/tw36587.pp

@@ -27,7 +27,11 @@ begin
   i64 := 0;
   i64 := i64 + P * C1 * A1;
   writeln(i64);
+{$ifdef CPUINT64}
   if i64 <> P*T2 then
+{$else CPUINT64}
+  if i64 <> Longint(P*T2) then
+{$endif CPUINT64}
     Halt(3);
 end;