mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
45 lines
986 B
ObjectPascal
45 lines
986 B
ObjectPascal
{ %norun }
|
|
{ %opt=-dtest\$FPCCPU -dtest\$FPCOS -dtest\$FPCCPUtest -dtest\$FPCOStest }
|
|
|
|
begin
|
|
{ test the most frequent combinations }
|
|
{$ifdef CPUX86_64}
|
|
{$ifdef testx86_64}
|
|
writeln('ok 1');
|
|
{$else testx86_64}
|
|
{$error default replacements failed}
|
|
{$endif testx86_64}
|
|
{$ifdef testx86_64test}
|
|
writeln('ok 2');
|
|
{$else testx86_64test}
|
|
{$error default replacements failed}
|
|
{$endif testx86_64test}
|
|
{$endif CPUX86_64}
|
|
|
|
{$ifdef CPUAARCH64}
|
|
{$ifdef testaarch64}
|
|
writeln('ok 1');
|
|
{$else testaarch64}
|
|
{$error default replacements failed}
|
|
{$endif testaarch64}
|
|
{$ifdef testaarch64test}
|
|
writeln('ok 2');
|
|
{$else testaarch64test}
|
|
{$error default replacements failed}
|
|
{$endif testaarch64test}
|
|
{$endif CPUAARCH64}
|
|
|
|
{$ifdef LINUX}
|
|
{$ifdef testlinux}
|
|
writeln('ok 1');
|
|
{$else testlinux}
|
|
{$error default replacements failed}
|
|
{$endif testlinux}
|
|
{$ifdef testlinuxtest}
|
|
writeln('ok 2');
|
|
{$else testlinuxtest}
|
|
{$error default replacements failed}
|
|
{$endif testlinuxtest}
|
|
{$endif LINUX}
|
|
end.
|