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

* experimental test for #39722, no sure if it will work this way on all platforms

Browse Source
This commit is contained in:
florian 2022-08-21 23:03:02 +02:00
parent 83b4555511
commit 5af087cfc3
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/webtbs/tw39722.pp Normal file
View File

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