Bug#148529: gnat-3.1: sin broken

[Brian May <bam@snoopy.apana.org.au>]

Package: gnat-3.1
Version: 1:3.1-2
Severity: normal

With the following code:

---CUT---
with Ada.Text_IO;
use Ada.Text_IO;

with Ada.Numerics;
use Ada.Numerics;
   
with Ada.Numerics.Generic_Elementary_Functions;

procedure TestBug2 is

   type F is new Float;
   subtype Radians is F;

   package Maths is new Generic_Elementary_Functions(F);
   use Maths;

begin
    Ada.Text_IO.Put_Line(F'Image(Sin(5.49779)));
    Ada.Text_IO.Put_Line(F'Image(Sin(0.0)));
    Ada.Text_IO.Put_Line(F'Image(Sin(5.49779)));
end TestBug2;
---CUT---

It returns:

0.E+05
-0.00000E+00
0.00000E+00

I think the first number is NaN (at least according to the patched gdb
5.0 it was), not sure why the last one is different.

According to Gnome Calculator, sin(5.49779)==0.707, and sin(0)==0.

I never had any problems with sin/cos/arcsin using the old version of
gnat (but didn't run this test program).

-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux scrooge 2.4.18 #1 Wed Apr 3 13:18:14 EST 2002 i686
Locale: LANG=C, LC_CTYPE=

Versions of packages gnat-3.1 depends on:
ii  gcc-3.1                       1:3.1-2    The GNU C compiler.
ii  gcc-3.1-base                  1:3.1-2    The GNU Compiler Collection (base 
ii  libc6                         2.2.5-6    GNU C Library: Shared libraries an
ii  libgnat3.15a                  1:3.1-2    Runtime library for GNU Ada applic



-- 
To UNSUBSCRIBE, email to debian-gcc-request@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org