From d7d354cb6cb23c8415049b7a98f850336fa1adbf Mon Sep 17 00:00:00 2001
From: Wilfried Moser <moser@cygnus>
Date: Wed, 17 Apr 1996 08:24:36 +0000
Subject: [PATCH]         * tests1.{ch,exp}: Tets case modified and enhanced.

---
 gdb/testsuite/gdb.chill/ChangeLog  |  4 ++++
 gdb/testsuite/gdb.chill/tests1.ch  |  3 +++
 gdb/testsuite/gdb.chill/tests1.exp | 27 +++++++++++++++++++--------
 3 files changed, 26 insertions(+), 8 deletions(-)

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index f9aa517d07e..8cb10e1bf64 100644
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,7 @@
+Wed Apr 17 01:23:06 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
+
+	* tests1.{ch,exp}: Tets case modified and enhanced.
+
 Tue Apr  9 01:18:04 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
 
 	* gch981.{ch,exp}, gch1041.{ch,exp}: New test cases.
diff --git a/gdb/testsuite/gdb.chill/tests1.ch b/gdb/testsuite/gdb.chill/tests1.ch
index 0962868bd7b..b545d072a27 100644
--- a/gdb/testsuite/gdb.chill/tests1.ch
+++ b/gdb/testsuite/gdb.chill/tests1.ch
@@ -122,6 +122,9 @@ newmode stru4m = struct (i long,
                          esac,
                          y stru3m);
 
+synmode m_xyzmode = struct (next ref m_xyzmode,
+			    i long);
+
 -- set mode locations
 dcl s1l set1 := ccc;
 dcl s2l nset1 := nb;
diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp
index 5eea4258cf6..a2693771238 100644
--- a/gdb/testsuite/gdb.chill/tests1.exp
+++ b/gdb/testsuite/gdb.chill/tests1.exp
@@ -461,17 +461,17 @@ proc test_locations {} {
     
     # reference modes
     test_print_accept "ptype ref3l" "PTR" "print mode of reference location"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "whatis ref3l" "ref3" \
 	"print modename of reference location"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "print ref3l" "ref3\\(H'.*\\)" \
 	"print reference location"
     test_print_accept "ptype ref4l" "PTR" "print mode of reference location"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "whatis ref4l" "ref4" \
 	"print modename of reference location"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "print ref4l" "ref4\\(H'.*\\)" \
 	"print reference location"
     test_print_accept "ptype ref5l" "PTR" "print mode of reference location"
@@ -784,13 +784,13 @@ proc test_locations {} {
     test_print_accept "print strul1.ch1" \
 	"\"12345678900987654321\"" \
 	"print field of structure location 1"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "print strul1.ch2" \
-	"\"1234567890\".*warning: tag field value does'nt match" \
+	"\"1234567890\"" \
 	"print field of structure location 1"
-    setup_xfail "*-*-*"
+    # setup_xfail "*-*-*"
     test_print_accept "print strul1.ch3" \
-	"\"1\".*warning: tag field value does'nt match" \
+	"\"1\"" \
 	"print field of structure location 1"
     
     if $passcount then {
@@ -798,6 +798,16 @@ proc test_locations {} {
     }
 }
 
+# This is chill/9434
+
+proc test_9434 {} {
+    global passcount
+
+    verbose "testing pr-9434"
+
+    test_print_accept "ptype m_xyzmode" "STRUCT \\(.*next REF m_xyzmode,.*i long.*\\)"
+}
+
 # Start with a fresh gdb.
 
 gdb_exit
@@ -809,6 +819,7 @@ send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
 if [set_lang_chill] then {
     test_modes
     test_locations
+    test_9434
 } else {
     warning "$test_name tests suppressed."
 }
-- 
2.30.2