* pr-5016.exp: Allow builtin types as either case. E.g. (BOOL|bool).

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 46872bdfdc913c8fb149f5a97057b512aea8d73b..bb17b9c1fd6041e28f3582b11d5b327b2125f6ec 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -2,6 +2,7 @@ Mon Feb 20 16:19:58 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        * chillvars.ch:  Add missing INIT's.
        * chillvars.exp:  Allow builtin types as either case. E.g. (BOOL|bool).
+       * pr-5016.exp:  Likewise.
 
 Sun Feb 12 11:26:08 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 

diff --git a/gdb/testsuite/gdb.chill/pr-5016.exp b/gdb/testsuite/gdb.chill/pr-5016.exp
index 827c4052d4c3543b281315444c3e404d2c05a518..0e4f83d28294f23009a8a346e3e9b037cd749d3c 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5016.exp
+++ b/gdb/testsuite/gdb.chill/pr-5016.exp
@@ -42,7 +42,7 @@ proc do_tests {} {
     gdb_test "whatis i" "type = m_index" "whatis int-range"
     gdb_test_exact "ptype m_index" "type = RANGE (1:10)" "ptype m_index"
     gdb_test_exact "whatis a" "type = /*LOC*/ vector"
-    gdb_test_exact "ptype a" "type = /*LOC*/ ARRAY (1:10) INT"
+    gdb_test "ptype a" "type = /\\*LOC\\*/ ARRAY \\(1:10\\) (INT|int)"
 }
 
 # Check to see if we have an executable to test.  If not, then either we