{ %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.