paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 15:30:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ OS_S16->OS_32 test for ppc64

Browse Source 
git-svn-id: trunk@10707 -
This commit is contained in:
Jonas Maebe 2008-04-18 21:07:20 +00:00
parent bafff6548d
commit 43c3260810
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cg/tcnvint6.pp
View File

@ -82,9 +82,12 @@ begin
error(35);
if cardinal(si)<>$ffffffff then
error(36);
i64:=cardinal(si);
if i64<>$ffffffff then
halt(37);
{$ifdef FPC}
if qword(si)<>$ffffffffffffffff then
error(37);
error(38);
{$endif FPC}
writeln('Test OK.');