* tests1.{ch,exp}: Tets case modified and enhanced.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index f9aa517d07e8a5045e8ad4a68871154be3e3d8d5..8cb10e1bf64724de109e7cc2e55e74149bc5e07a 100644 (file)
--- 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 0962868bd7bce16794d6f055d03b9002af43bb7a..b545d072a27f31c5814c0375cc71dff757fd24d9 100644 (file)
--- 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 5eea4258cf602945d9b9cb865b5671a1b3698d08..a26937712383cdc50ee726ff6fbfb058e23e98d9 100644 (file)
--- 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."
 }