diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 62719a26b2..c1b132b239 100644
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -414,6 +414,13 @@ primitive_value	:
 			{
 			  write_exp_elt_opcode (UNOP_IND);
 			}
+  		|	primitive_value POINTER mode_name
+			{
+			  write_exp_elt_opcode (UNOP_CAST);
+			  write_exp_elt_type (lookup_pointer_type ($3.type));
+			  write_exp_elt_opcode (UNOP_CAST);
+			  write_exp_elt_opcode (UNOP_IND);
+			}
                 |	value_name
 			{
 			  $$ = 0;	/* FIXME */