diff --git a/tests/test/tfpu2.pp b/tests/test/tfpu2.pp index d71682b3db..1c37b77589 100644 --- a/tests/test/tfpu2.pp +++ b/tests/test/tfpu2.pp @@ -1,4 +1,5 @@ { %skiptarget=go32v2 } +{ %opt=-CE } {$ifdef fpc}{$mode objfpc}{$endif} program test_fpu_excpetions; @@ -28,4 +29,9 @@ begin Writeln(' = 0 if x < 0'); Writeln(' 6.5+5.76*mysqrt(3.1) = ',x+y*mysqrt(z):0:6); Writeln(' 6.5+5.76*mysqrt(-3.1) = ',x+y*mysqrt(-z):0:6); + if (x+y*mysqrt(-z)<>x) then + begin + writeln('Error: mysqrt does not return zero for negative argument'); + halt(1); + end; end.