GDB 7.6.50

gdb/testsuite/gdb.ada/set_wstr/a.adb

Index: gdb/testsuite/gdb.ada/set_wstr/a.adb
diff --git a/gdb/testsuite/gdb.ada/same_enum/a.adb b/gdb/testsuite/gdb.ada/set_wstr/a.adb
similarity index 73%
copy from gdb/testsuite/gdb.ada/same_enum/a.adb
copy to gdb/testsuite/gdb.ada/set_wstr/a.adb
index 227a56758aa06f4d61eef5b0e5b6b5f0503992bb..7821ada8d19825081237211c2e6b793e158ca9fc 100644
--- a/gdb/testsuite/gdb.ada/same_enum/a.adb
+++ b/gdb/testsuite/gdb.ada/set_wstr/a.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
@@ -16,9 +16,11 @@
 with Pck; use Pck;
 
 procedure A is
-   FC : Color := Red;
-   SC : Color := Green;
+   Nnn : String := "12345";
+   Www : Wide_String := "12345";
+   Rws : Wide_Wide_String := "12345";
 begin
-   Do_Nothing (FC'Address);
-   Do_Nothing (SC'Address);
+   Do_Nothing (Nnn'Address);  -- STOP
+   Do_Nothing (Www'Address);
+   Do_Nothing (Rws'Address);
 end A;