GDB 7.6.50

gdb/testsuite/gdb.ada/float_param/pck.ads

Index: gdb/testsuite/gdb.ada/float_param/pck.ads
diff --git a/gdb/testsuite/gdb.ada/frame_args/pck.ads b/gdb/testsuite/gdb.ada/float_param/pck.ads
similarity index 57%
copy from gdb/testsuite/gdb.ada/frame_args/pck.ads
copy to gdb/testsuite/gdb.ada/float_param/pck.ads
index 03bb960d7985e517a6c02948ab31aaec0835eef9..093a32d79bb4086b36625406eda2f78a6ec39537 100644
--- a/gdb/testsuite/gdb.ada/frame_args/pck.ads
+++ b/gdb/testsuite/gdb.ada/float_param/pck.ads
@@ -1,4 +1,4 @@
---  Copyright 2007-2012 Free Software Foundation, Inc.
+--  Copyright 2013 Free Software Foundation, Inc.
 --
 --  This program is free software; you can redistribute it and/or modify
 --  it under the terms of the GNU General Public License as published by
@@ -13,25 +13,19 @@
 --  You should have received a copy of the GNU General Public License
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-with System;
-
 package Pck is
+   Global_Float : Float := 0.0;
+   Global_Double : Long_Float := 0.0;
+   Global_Long_Double : Long_Long_Float := 0.0;
 
-   type Struct is record
-      A : Integer;
-      B : Integer;
+   type Small_Struct is record
+      I : Integer;
    end record;
+   Global_Small_Struct : Small_Struct := (I => 0);
 
-   type Arr is array (1 .. 3) of Integer;
-
-
-   procedure Call_Me (Int : Integer;
-                      Flt : Float;
-                      Bln : Boolean;
-                      Ary : Arr;   -- Non scalar
-                      Chr : Character;
-                      Sad : System.Address;
-                      Rec : Struct);  -- Non scalar
-
+   procedure Set_Float (F : Float);
+   procedure Set_Double (Dummy : Integer; D : Long_Float);
+   procedure Set_Long_Double (Dummy : Integer;
+                              DS: Small_Struct;
+                              LD : Long_Long_Float);
 end Pck;
-