mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 02:28:46 +02:00
31 lines
325 B
ObjectPascal
31 lines
325 B
ObjectPascal
{ %CPU=xtensa }
|
|
|
|
{$define NODOUBLE}
|
|
|
|
{$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.
|