mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:28:13 +02:00
35 lines
498 B
ObjectPascal
35 lines
498 B
ObjectPascal
{ %CPU=arm }
|
|
{ %OPT=-Cfvfpv4 }
|
|
uses
|
|
cpu;
|
|
|
|
{$i tfma1.inc}
|
|
|
|
begin
|
|
if VFPv4Support then
|
|
begin
|
|
d1:=2;
|
|
d2:=3;
|
|
d3:=4;
|
|
d0:=FMADouble(d1,d2,d3);
|
|
writeln(d0);
|
|
if d0<>10.0 then
|
|
halt(1);
|
|
|
|
s1:=2;
|
|
s2:=3;
|
|
s3:=4;
|
|
s0:=FMASingle(s1,s2,s3);
|
|
writeln(s0);
|
|
if s0<>10.0 then
|
|
halt(1);
|
|
|
|
testsingle;
|
|
testdouble;
|
|
|
|
writeln('ok');
|
|
end
|
|
else
|
|
writeln('Skipped because not supported by the CPU');
|
|
end.
|