* gdb.ada/array_return/pck.ads (Small_Float_Vector): New type.

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.ada / array_return / pck.adb

diff --git a/gdb/testsuite/gdb.ada/array_return/pck.adb b/gdb/testsuite/gdb.ada/array_return/pck.adb
index 042af78707b080f72d16c7f88dd9be6a87a9d32a..6a06b39aa76ae12b3146daa27bd9808c8a955cd9 100644 (file)
--- a/gdb/testsuite/gdb.ada/array_return/pck.adb
+++ b/gdb/testsuite/gdb.ada/array_return/pck.adb
@@ -27,4 +27,9 @@ package body Pck is
       return (others => 2);
    end Create_Large;
 
+   function Create_Small_Float_Vector return Small_Float_Vector is
+   begin
+      return (others => 4.25);
+   end Create_Small_Float_Vector;
+
 end Pck;