* ChangeLog.vta: New.

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-gecobl.ads

diff --git a/gcc/ada/s-gecobl.ads b/gcc/ada/s-gecobl.ads
index 9d9d216..533e7ae 100644 (file)
--- a/gcc/ada/s-gecobl.ads
+++ b/gcc/ada/s-gecobl.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--         Copyright (C) 2006-2007, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -73,7 +73,7 @@ package System.Generic_Complex_BLAS is
      (Trans : access constant Character;
       M     : Natural := 0;
       N     : Natural := 0;
-      Alpha : Complex := (1.0, 1.0);
+      Alpha : Complex := (1.0, 0.0);
       A     : Complex_Matrix;
       Ld_A  : Positive;
       X     : Complex_Vector;
@@ -92,7 +92,7 @@ package System.Generic_Complex_BLAS is
       M       : Positive;
       N       : Positive;
       K       : Positive;
-      Alpha   : Complex := (1.0, 1.0);
+      Alpha   : Complex := (1.0, 0.0);
       A       : Complex_Matrix;
       Ld_A    : Integer;
       B       : Complex_Matrix;