paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 13:11:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for 32 Bit targets

Browse Source 
git-svn-id: trunk@45324 -
This commit is contained in:
florian 2020-05-10 09:04:13 +00:00
parent 7cda3d9e57
commit b48c8d8596
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw36587.pp
View File

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