Index: ada-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-lang.c,v
retrieving revision 1.102
diff -u -p -r1.102 ada-lang.c
--- ada-lang.c	14 Aug 2007 20:16:16 -0000	1.102
+++ ada-lang.c	15 Aug 2007 18:31:06 -0000
@@ -2691,6 +2691,9 @@ resolve_subexp (struct expression **expp
     case BINOP_REPEAT:
     case BINOP_SUBSCRIPT:
     case BINOP_COMMA:
+      *pos += 1;
+      nargs = 2;
+      break;
 
     case UNOP_NEG:
     case UNOP_PLUS: