GDB 7.6.50

gdb/testsuite/gdb.ada/optim_drec/foo.adb

Index: gdb/testsuite/gdb.ada/optim_drec/foo.adb
diff --git a/gdb/testsuite/gdb.ada/ptr_typedef/foo.adb b/gdb/testsuite/gdb.ada/optim_drec/foo.adb
similarity index 69%
copy from gdb/testsuite/gdb.ada/ptr_typedef/foo.adb
copy to gdb/testsuite/gdb.ada/optim_drec/foo.adb
index 79c3c07ab0e1f33978200e30cbb05377c02b255e..5c5cf82daa8453c61c1aef02e81d3279aa9d2c62 100644
--- a/gdb/testsuite/gdb.ada/ptr_typedef/foo.adb
+++ b/gdb/testsuite/gdb.ada/optim_drec/foo.adb
@@ -1,4 +1,4 @@
---  Copyright 2011-2012 Free Software Foundation, Inc.
+--  Copyright 2012-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,18 +13,13 @@
 --  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 Pck; use Pck;
-
 procedure Foo is
-   type BA is access all Boolean;
-   type BAs is array (1 .. 1) of BA;
-
-   type Blob is record
-      Val : Integer;
-      Bees : BAs;
+   type Discriminants_Record (A : Integer; B : Boolean) is record
+      C : Float;
    end record;
-
-   My_Blob : Blob := (Val => 1, Bees => (1 => null));
+   --  The following variable is unused on purpose, and might be
+   --  optimized out by the compiler.
+   Z : Discriminants_Record := (A => 1, B => False, C => 2.0);
 begin
-   Do_Nothing (My_Blob'Address);  --  STOP
+   null;
 end Foo;