mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
28 lines
419 B
ObjectPascal
28 lines
419 B
ObjectPascal
{ %norun }
|
|
{ %needlibrary }
|
|
{ %target=darwin,linux,freebsd,solaris,beos,haiku,aix,android }
|
|
|
|
{$mode delphi}
|
|
|
|
{$ifdef darwin}
|
|
{$PIC+}
|
|
{$endif darwin}
|
|
|
|
{$ifdef CPUX86_64}
|
|
{$ifndef WINDOWS}
|
|
{$PIC+}
|
|
{$endif WINDOWS}
|
|
{$endif CPUX86_64}
|
|
|
|
library tw16263a;
|
|
|
|
function divide(d1,d2: double): double; cdecl;
|
|
begin
|
|
divide:=d1/d2;
|
|
end;
|
|
|
|
begin
|
|
// check that the library does not re-enable fpu exceptions
|
|
divide(1.0,0.0);
|
|
end.
|