gdb ChangeLog

	PR pascal/11492.
	* p-valprint.c (pascal_val_print): Fix default printing of integer
	arrays.

gdb/testsuite ChangeLog
	PR pascal/11492.
	* gdb.pascal/gdb11492.pas: New file.
	* gdb.pascal/gdb11492.exp: New file.

1 files changed, 40 insertions, 0 deletions

diff --git a/gdb/testsuite/gdb.pascal/gdb11492.pas b/gdb/testsuite/gdb.pascal/gdb11492.pas
new file mode 100644
index 0000000..2eb86f5
--- /dev/null
+++ b/gdb/testsuite/gdb.pascal/gdb11492.pas
@@ -0,0 +1,40 @@
+{
+ Copyright 2010 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
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program.  If not, see <http://www.gnu.org/licenses/>.
+}
+
+
+program test_gdb_11492;
+
+const
+  LowBound = 1;
+  HighBound = 8;
+var
+  integer_array : array[LowBound..HighBound] of integer;
+  char_array : array[LowBound..HighBound] of char;
+  i : integer;
+
+begin
+  for i:=LowBound to HighBound do
+    begin
+      integer_array[i]:=49+i;
+      char_array[i]:=char(49+i);
+    end;
+  i:=0; { set breakpoint 1 here }
+  char_array[5] := 'X';
+  Writeln('integer array, index 5 is ',integer_array[5]);
+  Writeln('char array, index 5 is ',char_array[5]);
+end.
+