Sign of tanh ???

["Bobby D. Bryant" <bdbryant@mail.utexas.edu>]

Isn't tanh supposed to preserve the sign of its argument?

---8<-------
with
  Ada.Float_Text_IO,
  Ada.Numerics.Elementary_Functions;

use
  Ada.Float_Text_IO,
  Ada.Numerics.Elementary_Functions;

procedure Test is
begin
   Put( Tanh(  0.5 ), Fore => 3, Exp => 0 );
   Put( Tanh( -0.5 ), Fore => 3, Exp => 0 );
end Test;
---8<-------

% gnatmake test
gnatgcc -c test.adb
gnatbind -x test.ali
gnatlink test.ali
gnatlink: warning: executable name "test" may conflict with existing
command

% ./test
  0.46212  0.46212

% rpm -q gnat
gnat-3.13p-5


Thanks,

Bobby Bryant
Austin, Texas