[Bug ada/20754] ACATS cxg1005 fails at runtime on hppa-linux

[laurent at guerby dot net]

------- Comment #4 from laurent at guerby dot net  2006-01-03 21:19 -------
May be this one? 

guerby@m:~/tmp/pr20754> cat > p2.adb
with Ada.Numerics.Elementary_Functions;
with Ada.Numerics.Complex_Types; 
with Ada.Numerics.Complex_Elementary_Functions; 
with Ada.Text_IO;

procedure P2 is

   use Ada.Numerics.Elementary_Functions;
   use Ada.Numerics.Complex_Types;
   use Ada.Numerics.Complex_Elementary_Functions;
   use Ada.Text_IO;

   procedure Put (C : in Complex) is
   begin
      Put_Line ("(" & Float'Image (Re (C)) & ", "
                & Float'Image (Im (C)) & ")");
   end Put;

  C0 : constant Complex := (-1.0, 0.0);
  C1 : Constant Complex := Log (C0);

begin
   Put (C0);
   Put (C1);
   Put_Line (Float'Image (Arctan (Y => 0.0, X => -1.0)));
end P2;
guerby@m:~/tmp/pr20754> gnatmake p2
gcc -c p2.adb
gnatbind -x p2.ali
gnatlink p2.ali
guerby@m:~/tmp/pr20754> ./p2
(-1.00000E+00,  0.00000E+00)
( 0.00000E+00,  3.14159E+00)
 3.14159E+00


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20754