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

* extended test

Browse Source
This commit is contained in:
florian 2022-08-22 21:33:52 +02:00
parent 1d95e6087a
commit 4f7dffadbb
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw39722.pp
View File

@ -1,28 +1,43 @@
{ %opt=-dtest\$FPCCPU -dtest\$FPCOS }
{ %opt=-dtest\$FPCCPU -dtest\$FPCOS -dtest\$FPCCPUtest -dtest\$FPCOStest }
begin
{ test the most frequent combinations }
{$ifdef CPUX86_64}
{$ifdef testx86_64}
writeln('ok');
writeln('ok 1');
{$else testx86_64}
halt(1);
{$endif testx86_64}
{$ifdef testx86_64test}
writeln('ok 2');
{$else testx86_64test}
halt(1);
{$endif testx86_64test}
{$endif CPUX86_64}
{$ifdef CPUAARCH64}
{$ifdef testaarch64}
writeln('ok');
writeln('ok 1');
{$else testaarch64}
halt(1);
{$endif testaarch64}
{$ifdef testaarch64test}
writeln('ok 2');
{$else testaarch64test}
halt(1);
{$endif testaarch64test}
{$endif CPUAARCH64}
{$ifdef LINUX}
{$ifdef testlinux}
writeln('ok');
writeln('ok 1');
{$else testlinux}
halt(1);
{$endif testlinux}
{$ifdef testlinuxtest}
writeln('ok 2');
{$else testlinuxtest}
halt(1);
{$endif testlinuxtest}
{$endif LINUX}
end.