mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
27 lines
299 B
ObjectPascal
27 lines
299 B
ObjectPascal
{ %CPU=aarch64 }
|
|
|
|
{$i tfma1.inc}
|
|
|
|
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.
|