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.