From 7e965616ffb09f47b93b1be75128154b841c69ca Mon Sep 17 00:00:00 2001
From: Per Bothner <per@bothner.com>
Date: Thu, 8 Jun 1995 00:52:06 +0000
Subject: [PATCH] 	* chillvars.ch (xptr):  Declare new variable. 	*
 chillvars.exp (test_ptr):  New function to test EXPR->MODENAME. This is to
 test PR chill/6932.

---
 gdb/testsuite/gdb.chill/ChangeLog     | 5 +++++
 gdb/testsuite/gdb.chill/chillvars.ch  | 2 ++
 gdb/testsuite/gdb.chill/chillvars.exp | 7 +++++++
 3 files changed, 14 insertions(+)

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index bd966a4526c..cb0dc6e3488 100644
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun  7 17:52:38 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+	* chillvars.ch (xptr):  Declare new variable.
+	* chillvars.exp (test_ptr):  New function to test EXPR->MODENAME.
+
 Tue Mar 28 17:13:13 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
 	* pr-6632.ch, pr-6632-grt.ch, pr-6632.exp, Makefile.in:  New test case.
diff --git a/gdb/testsuite/gdb.chill/chillvars.ch b/gdb/testsuite/gdb.chill/chillvars.ch
index 3df623b857e..21dfcba5486 100644
--- a/gdb/testsuite/gdb.chill/chillvars.ch
+++ b/gdb/testsuite/gdb.chill/chillvars.ch
@@ -125,6 +125,8 @@ DCL charmatrix ARRAY (0:255) CHAR INIT := [
   'a','a','a','a','a','a','a','a','a','a','a','a','a','a','a','a'
 ];
 
+DCL xptr PTR INIT := ->int_high;
+
 booleans: PROC ();
 
 	DCL val1 BOOL := TRUE;
diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp
index 78d9f01d671..4651826643c 100644
--- a/gdb/testsuite/gdb.chill/chillvars.exp
+++ b/gdb/testsuite/gdb.chill/chillvars.exp
@@ -61,6 +61,8 @@ proc do_tests {} {
     test_arrays
     test_strings
     test_structs
+
+    test_ptr
 }
 
 proc test_BOOL {} {
@@ -284,6 +286,11 @@ proc test_structs {} {
 	".* = \\\[.abool: TRUE, \.nstruct: \\\[\.abool: FALSE, \.aint: 456, \.astring: \"deadbeef\"\\\], \.aint: 789\\\]"
 }
 
+proc test_ptr {} {
+    # This is to test Cygnus PR 6932
+    gdb_test "print xptr->int" ".* = 32767"
+}
+
 # Check to see if we have an executable to test.  If not, then either we
 # haven't tried to compile one, or the compilation failed for some reason.
 # In either case, just notify the user and skip the tests in this file.
-- 
2.30.2