program testfp;
{$linklib gcc}
{$linklib c}
{$link testfpfunctions}
function zssssssssssssssdd(a:single;b:single;c:single;d:single;e:single;f:single;g:single;h:single;i:single;j:single;k:single;l:single;m:single;n:single;o:double):double;cdecl;external;
var d: double;
procedure g0; begin
d := zssssssssssssssdd(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
if d=120 then writeln('zssssssssssssssdd pass') else begin writeln('zssssssssssssssdd fail d=',d) ; {halt} end;
flush(output);
end;
begin
g0;
end.
