From b48c8d8596400544396715cb4a268adc6dfae619 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 10 May 2020 09:04:13 +0000
Subject: [PATCH]   * fixed test for 32 Bit targets

git-svn-id: trunk@45324 -
---
 tests/webtbs/tw36587.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/webtbs/tw36587.pp b/tests/webtbs/tw36587.pp
index 8285e2e81a..54ebd9d27e 100644
--- a/tests/webtbs/tw36587.pp
+++ b/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;