Browse Source

* fixed test for 32 Bit targets

git-svn-id: trunk@45324 -
florian 5 years ago
parent
commit
b48c8d8596
1 changed files with 4 additions and 0 deletions
  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;