+set test "complete 'p values\[0\].a'"
+send_gdb "p values\[0\].a\t"
+gdb_test_multiple "" "$test" {
+ -re "^p values.0..a_field $" {
+ send_gdb "\n"
+ gdb_test_multiple "" "$test" {
+ -re " = 0.*$gdb_prompt $" {
+ pass "$test"
+ }
+ }
+ }
+}
+
+set test "complete 'p values\[0\] . a'"
+send_gdb "p values\[0\] . a\t"
+gdb_test_multiple "" "$test" {
+ -re "^p values.0. . a_field $" {
+ send_gdb "\n"
+ gdb_test_multiple "" "$test" {
+ -re " = 0.*$gdb_prompt $" {
+ pass "$test"
+ }
+ }
+ }
+}
+
+set test "complete 'p &values\[0\] -> a'"
+send_gdb "p &values\[0\] -> a\t"
+gdb_test_multiple "" "$test" {
+ -re "^p &values.0. -> a_field $" {
+ send_gdb "\n"
+ gdb_test_multiple "" "$test" {
+ -re " = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $" {
+ pass "$test"
+ }
+ }
+ }
+}
+
+gdb_test "complete p &values\[0\]->z" \
+ "p &values.0.->z_field" \
+ "completion of field in anonymous union"
+
+gdb_test "complete ptype &values\[0\]->z" \
+ "ptype &values.0.->z_field" \
+ "ptype completion of field in anonymous union"
+
+gdb_test "complete whatis &values\[0\]->z" \
+ "whatis &values.0.->z_field" \
+ "whatis completion of field in anonymous union"