GDB 7.6.50

gdb/testsuite/gdb.ada/float_param/pck.adb

Index: gdb/testsuite/gdb.ada/float_param/pck.adb
diff --git a/gdb/testsuite/gdb.ada/array_return/pck.adb b/gdb/testsuite/gdb.ada/float_param/pck.adb
similarity index 61%
copy from gdb/testsuite/gdb.ada/array_return/pck.adb
copy to gdb/testsuite/gdb.ada/float_param/pck.adb
index a315b276fe10de2f637dfd97eee7fe6011848159..18967e4abc52095de9c8a1c1f0115d921de81e63 100644
--- a/gdb/testsuite/gdb.ada/array_return/pck.adb
+++ b/gdb/testsuite/gdb.ada/float_param/pck.adb
@@ -1,4 +1,4 @@
---  Copyright 2006-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
@@ -15,19 +15,21 @@
 
 package body Pck is
 
-   function Create_Small return Data_Small is
+   procedure Set_Float (F : Float) is
    begin
-      return (others => 1);
-   end Create_Small;
+      Global_Float := F;
+   end Set_Float;
 
-   function Create_Large return Data_Large is
+   procedure Set_Double (Dummy : Integer; D : Long_Float) is
    begin
-      return (others => 2);
-   end Create_Large;
+      Global_Double := D;
+   end Set_Double;
 
-   function Create_Small_Float_Vector return Small_Float_Vector is
+   procedure Set_Long_Double (Dummy : Integer;
+                              DS : Small_Struct;
+                              LD : Long_Long_Float) is
    begin
-      return (others => 4.25);
-   end Create_Small_Float_Vector;
+      Global_Long_Double := LD;
+   end Set_Long_Double;
 
 end Pck;