tests/named-refs.at

   1 # Named references test.                           -*- Autotest -*-
   2
   3 # Copyright (C) 2009-2012 Free Software Foundation, Inc.
   4
   5 # This program is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 # FIXME: Duplication with calc.at.
  19 AT_BANNER([[Named references tests.]])
  20
  21 AT_SETUP([Tutorial calculator])
  22 AT_BISON_OPTION_PUSHDEFS
  23 AT_DATA_GRAMMAR([test.y],
  24 [[
  25 %{
  26 #include <assert.h>
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30 #include <ctype.h>
  31 typedef int semantic_value;
  32 FILE *input;
  33 static semantic_value global_result = 0;
  34 static int global_count = 0;
  35 static int power (int base, int exponent);
  36 ]AT_YYERROR_DECLARE[
  37 ]AT_YYLEX_DECLARE[
  38 %}
  39
  40 %union
  41 {
  42   semantic_value ival;
  43 };
  44
  45 %token CALC_EOF 0 "end of input"
  46 %token <ival> NUM "number"
  47 %type  <ival> exp
  48
  49 %nonassoc '='   /* comparison          */
  50 %left '-' '+'
  51 %left '*' '/'
  52 %precedence NEG /* negation--unary minus */
  53 %right '^'      /* exponentiation        */
  54
  55 %%
  56 input:
  57   line
  58 | input line         {}
  59 ;
  60
  61 line:
  62   '\n'
  63 | exp '\n'           {}
  64 ;
  65
  66 exp:
  67   NUM                { $$ = $NUM; }
  68 | exp[l] '=' exp[r]
  69   {
  70     if ($l != $r)
  71       fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
  72    $$ = $l;
  73   }
  74 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r]  { $$ = $<ival>l + $r;    }
  75 | exp[l] '-' exp[r]  { $$ = $l - $r;        }
  76 | exp[l] '*' exp[r]  { $$ = $l * $r;        }
  77 | exp[l] '/' exp[r]  { $$ = $l / $r;        }
  78 | '-' exp  %prec NEG { $$ = -$2;            }
  79 | exp[l] '^' exp[r]  { $$ = power ($l, $r); }
  80 | '(' exp[e] ')'     { $$ = $e;           }
  81 | '(' error ')'      { $$ = 1111; yyerrok;  }
  82 | '!'                { $$ = 0; YYERROR;     }
  83 | '-' error          { $$ = 0; YYERROR;     }
  84 ;
  85 %%
  86 ]AT_YYERROR_DEFINE[
  87 static int get_char (void)
  88 {
  89   int res = getc (input);
  90   return res;
  91 }
  92
  93 static void unget_char (int c)
  94 {
  95   ungetc (c, input);
  96 }
  97
  98 static int read_signed_integer (void)
  99 {
 100   int c = get_char ();
 101   int sign = 1;
 102   int n = 0;
 103   if (c == '-')
 104     {
 105       c = get_char ();
 106       sign = -1;
 107     }
 108   while (isdigit (c))
 109     {
 110       n = 10 * n + (c - '0');
 111       c = get_char ();
 112     }
 113   unget_char ( c);
 114   return sign * n;
 115 }
 116
 117 static int
 118 yylex (void)
 119 {
 120   int c;
 121   /* Skip white space.  */
 122   while ((c = get_char ()) == ' ' || c == '\t') {}
 123
 124   /* process numbers   */
 125   if (c == '.' || isdigit (c))
 126     {
 127       unget_char ( c);
 128       (yylval).ival = read_signed_integer ();
 129       return NUM;
 130     }
 131
 132   /* Return end-of-file.  */
 133   if (c == EOF)
 134     return CALC_EOF;
 135
 136   /* Return single chars. */
 137   return c;
 138 }
 139
 140 static int power (int base, int exponent)
 141 {
 142   int res = 1;
 143   assert (0 <= exponent);
 144   for (/* Niente */; exponent; --exponent)
 145     res *= base;
 146   return res;
 147 }
 148
 149 int main (int argc, const char **argv)
 150 {
 151   semantic_value result = 0;
 152   int count = 0;
 153   int status;
 154   if (argc == 2)
 155     input = fopen (argv[1], "r");
 156   else
 157     input = stdin;
 158   if (!input)
 159     {
 160       perror (argv[1]);
 161       return 3;
 162     }
 163   status = yyparse ();
 164   fclose (input);
 165   assert (global_result == result);
 166   assert (global_count == count);
 167   return status;
 168 }
 169 ]])
 170
 171 AT_DATA([input.txt],
 172 [[
 173 1 + 2 * 3 = 7
 174 1 + 2 * -3 = -5
 175 -1^2 = -1
 176 (-1)^2 = 1
 177 ---1 = -1
 178 1 - 2 - 3 = -4
 179 1 - (2 - 3) = 2
 180 2^2^3 = 256
 181 (2^2)^3 = 64
 182 ]])
 183
 184 AT_BISON_CHECK([-o test.c test.y])
 185 AT_COMPILE([[test]])
 186 AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
 187 AT_BISON_OPTION_POPDEFS
 188 AT_CLEANUP
 189
 190
 191
 192 #######################################################################
 193
 194
 195 AT_SETUP([Undefined and ambiguous references])
 196 AT_BISON_OPTION_PUSHDEFS
 197 AT_DATA_GRAMMAR([test.y],
 198 [[
 199 %{
 200 static int power (int base, int exponent);
 201 ]AT_YYERROR_DECLARE[
 202 ]AT_YYLEX_DECLARE[
 203 %}
 204
 205 %union
 206 {
 207   int ival;
 208 };
 209
 210 %token CALC_EOF 0 "end of input"
 211 %token <ival> NUM "number"
 212 %type  <ival> exp
 213
 214 %nonassoc '='   /* comparison          */
 215 %left '-' '+'
 216 %left '*' '/'
 217 %precedence NEG /* negation--unary minus */
 218 %right '^'      /* exponentiation        */
 219
 220 %%
 221 input:
 222   line
 223 | input line         {}
 224 ;
 225
 226 line:
 227   '\n'
 228 | exp '\n'           {}
 229 ;
 230
 231 exp:
 232   NUM { $$ = $NUM; }
 233 | exp[l] '=' exp[r]
 234   {
 235     if ($l != $r)
 236       fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
 237    $$ = $l;
 238   }
 239 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
 240 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
 241 | exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
 242 | exp[l] '/' exp[r]  { $$ = $l / $r;        }
 243 | '-' exp  %prec NEG { $$ = -$2;            }
 244 | exp[l] '^' exp[r]  { $$ = power ($l, $r12); }
 245 | '(' exp ')'        { $$ = $expo;           }
 246 | '(' error ')'      { $$ = 1111; yyerrok;  }
 247 | '!'                { $$ = 0; YYERROR;     }
 248 | '-' error          { $$ = 0; YYERROR;     }
 249 ;
 250 %%
 251 ]])
 252
 253 AT_BISON_CHECK([-fcaret -o test.c test.y], 1, [],
 254 [[test.y:50.51-60: error: invalid reference: '$<ival>lo9'
 255  | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
 256                                                    ^^^^^^^^^^
 257 test.y:50.3-68:      symbol not found in production: lo9
 258  | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
 259    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 260 test.y:51.51-60: warning: misleading reference: '$<ival>exp' [-Wother]
 261  | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
 262                                                    ^^^^^^^^^^
 263 test.y:42.1-3:       refers to: $exp at $$
 264  exp:
 265  ^^^
 266 test.y:51.7:         possibly meant: $x, hiding $exp at $1
 267  | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
 268        ^
 269 test.y:51.41:        possibly meant: $r, hiding $exp at $4
 270  | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
 271                                          ^
 272 test.y:52.51-52: error: $l of 'exp' has no declared type
 273  | exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
 274                                                    ^^
 275 test.y:55.40-43: error: invalid reference: '$r12'
 276  | exp[l] '^' exp[r]  { $$ = power ($l, $r12); }
 277                                         ^^^^
 278 test.y:55.3-47:      symbol not found in production: r12
 279  | exp[l] '^' exp[r]  { $$ = power ($l, $r12); }
 280    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 281 test.y:56.29-33: error: invalid reference: '$expo'
 282  | '(' exp ')'        { $$ = $expo;           }
 283                              ^^^^^
 284 test.y:56.3-46:      symbol not found in production: expo
 285  | '(' exp ')'        { $$ = $expo;           }
 286    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 287 ]])
 288 AT_BISON_OPTION_POPDEFS
 289 AT_CLEANUP
 290
 291 #######################################################################
 292
 293 AT_SETUP([Misleading references])
 294 AT_DATA_GRAMMAR([test.y],
 295 [[
 296 %%
 297 start: foo foo.bar { $foo.bar; }
 298 foo: '1'
 299 foo.bar: '2'
 300 ]])
 301 AT_BISON_CHECK([-o test.c test.y], 0, [],
 302 [[test.y:11.22-29: warning: misleading reference: '$foo.bar' [-Wother]
 303 test.y:11.8-10:      refers to: $foo at $1
 304 test.y:11.12-18:     possibly meant: $[foo.bar] at $2
 305 ]])
 306 AT_CLEANUP
 307
 308 #######################################################################
 309
 310 AT_SETUP([Many kinds of errors])
 311 AT_DATA_GRAMMAR([test.y],
 312 [[
 313 %token IDENT
 314 %token NUMBER
 315 %token ASSIGNOP
 316 %token IF
 317 %token IF1
 318 %token THEN
 319 %token ELSE
 320 %token FI
 321 %token WHILE
 322 %token DO
 323 %token OD
 324 %start program
 325 %%
 326 if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
 327           { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
 328 if_stmt2: IF expr[cond] THEN stmt[then] FI
 329           { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
 330 if_stmt3: IF expr[cond] THEN stmt.list FI
 331           { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
 332 if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
 333           { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
 334 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 335           { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
 336 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 337           { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
 338 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 339           { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
 340 if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 341           { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
 342 if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 343           { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
 344 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
 345           { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
 346 if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 347           { $if-stmt-a = new IfStmt($cond, $then, $else); };
 348 if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
 349           { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
 350 program: stmt.list;
 351 stmt.list:  stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
 352         |   stmt ';' { SL = new StmtList();  SL->insert($1); $$ = SL; }
 353         ;
 354 stmt:  assign_stmt { $$ = $1; }
 355     |  if_stmt { $$ = $1; }
 356     |  if_stmt1 { $$ = $1; }
 357     |  while_stmt { $$ = $1; }
 358     ;
 359 assign_stmt: IDENT ASSIGNOP expr
 360        { $$ = new AssignStmt(string($1),$3); };
 361 if_stmt: IF expr[cond] THEN stmt.list FI
 362        { $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
 363 while_stmt[res]: WHILE expr DO stmt.list OD
 364        { $res = new WhileStmt($[expr], $[stmt.list]); };
 365 expr: expr '+' term   { $$ = new Plus($1,$3); }
 366     | expr '-' term   { $$ = new Minus($1,$3); }
 367     | term            { $$ = $1; }
 368     ;
 369 term: term '*' factor   { $$ = new Times($1,$3); }
 370     | factor            { $$ = $1; }
 371     ;
 372 factor:     '(' expr ')'  { $$ = $2; }
 373     |       NUMBER { $$ = new Number($1); }
 374     |       IDENT { $$ = new Ident(string($1)); }
 375     ;
 376 ]])
 377 AT_BISON_CHECK([-o test.c test.y], 1, [],
 378 [[test.y:24.36-41: error: invalid reference: '$cond1'
 379 test.y:23.11-24.62:  symbol not found in production: cond1
 380 test.y:26.43-53: error: invalid reference: '$stmt.field'
 381 test.y:25.11-26.60:  symbol not found in production: stmt
 382 test.y:25.35-38:     possibly meant: $then.field, hiding $stmt.field at $4
 383 test.y:28.43-52: error: invalid reference: '$stmt.list'
 384 test.y:27.11-28.59:  symbol not found in production: stmt
 385 test.y:27.30-38:     possibly meant: $[stmt.list] at $4
 386 test.y:30.43-46: error: ambiguous reference: '$xyz'
 387 test.y:29.35-37:     refers to: $xyz at $4
 388 test.y:29.50-52:     refers to: $xyz at $6
 389 test.y:32.43-52: error: invalid reference: '$stmt.list'
 390 test.y:31.11-32.63:  symbol not found in production: stmt
 391 test.y:31.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
 392 test.y:31.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
 393 test.y:34.43-58: error: invalid reference: '$stmt.list.field'
 394 test.y:33.11-34.69:  symbol not found in production: stmt
 395 test.y:33.40-43:     possibly meant: $then.field, hiding $[stmt.list].field at $4
 396 test.y:33.61-64:     possibly meant: $else.field, hiding $[stmt.list].field at $6
 397 test.y:36.43-54: error: invalid reference: '$[stmt.list]'
 398 test.y:35.11-36.71:  symbol not found in production: stmt.list
 399 test.y:35.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
 400 test.y:35.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
 401 test.y:38.43-49: error: invalid reference: '$then.1'
 402 test.y:37.11-38.60:  symbol not found in production: then
 403 test.y:37.40-45:     possibly meant: $[then.1] at $4
 404 test.y:40.43-55: error: invalid reference: '$then.1.field'
 405 test.y:39.11-40.66:  symbol not found in production: then
 406 test.y:39.40-45:     possibly meant: $[then.1].field at $4
 407 test.y:42.44-50: error: invalid reference: '$stmt.x'
 408 test.y:41.12-42.57:  symbol not found in production: stmt
 409 test.y:41.36-41:     possibly meant: $[stmt.x].x, hiding $stmt.x at $4
 410 test.y:41.36-41:     possibly meant: $[stmt.x] at $4
 411 test.y:44.13-22: error: invalid reference: '$if-stmt-a'
 412 test.y:43.12-44.59:  symbol not found in production: if
 413 test.y:43.1-9:       possibly meant: $[if-stmt-a] at $$
 414 test.y:46.46-54: error: invalid reference: '$then-a.f'
 415 test.y:45.12-46.65:  symbol not found in production: then
 416 test.y:45.41-46:     possibly meant: $[then-a].f at $4
 417 ]])
 418
 419 AT_BISON_CHECK([-fcaret -o test.c test.y], 1, [],
 420 [[test.y:24.36-41: error: invalid reference: '$cond1'
 421            { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
 422                                     ^^^^^^
 423 test.y:23.11-24.62:  symbol not found in production: cond1
 424  if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
 425            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 426 test.y:26.43-53: error: invalid reference: '$stmt.field'
 427            { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
 428                                            ^^^^^^^^^^^
 429 test.y:25.11-26.60:  symbol not found in production: stmt
 430  if_stmt2: IF expr[cond] THEN stmt[then] FI
 431            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 432 test.y:25.35-38:     possibly meant: $then.field, hiding $stmt.field at $4
 433  if_stmt2: IF expr[cond] THEN stmt[then] FI
 434                                    ^^^^
 435 test.y:28.43-52: error: invalid reference: '$stmt.list'
 436            { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
 437                                            ^^^^^^^^^^
 438 test.y:27.11-28.59:  symbol not found in production: stmt
 439  if_stmt3: IF expr[cond] THEN stmt.list FI
 440            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 441 test.y:27.30-38:     possibly meant: $[stmt.list] at $4
 442  if_stmt3: IF expr[cond] THEN stmt.list FI
 443                               ^^^^^^^^^
 444 test.y:30.43-46: error: ambiguous reference: '$xyz'
 445            { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
 446                                            ^^^^
 447 test.y:29.35-37:     refers to: $xyz at $4
 448  if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
 449                                    ^^^
 450 test.y:29.50-52:     refers to: $xyz at $6
 451  if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
 452                                                   ^^^
 453 test.y:32.43-52: error: invalid reference: '$stmt.list'
 454            { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
 455                                            ^^^^^^^^^^
 456 test.y:31.11-32.63:  symbol not found in production: stmt
 457  if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 458            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 459 test.y:31.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
 460  if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 461                                         ^^^^
 462 test.y:31.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
 463  if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 464                                                              ^^^^
 465 test.y:34.43-58: error: invalid reference: '$stmt.list.field'
 466            { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
 467                                            ^^^^^^^^^^^^^^^^
 468 test.y:33.11-34.69:  symbol not found in production: stmt
 469  if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 470            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 471 test.y:33.40-43:     possibly meant: $then.field, hiding $[stmt.list].field at $4
 472  if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 473                                         ^^^^
 474 test.y:33.61-64:     possibly meant: $else.field, hiding $[stmt.list].field at $6
 475  if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 476                                                              ^^^^
 477 test.y:36.43-54: error: invalid reference: '$[stmt.list]'
 478            { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
 479                                            ^^^^^^^^^^^^
 480 test.y:35.11-36.71:  symbol not found in production: stmt.list
 481  if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 482            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 483 test.y:35.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
 484  if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 485                                         ^^^^
 486 test.y:35.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
 487  if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 488                                                              ^^^^
 489 test.y:38.43-49: error: invalid reference: '$then.1'
 490            { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
 491                                            ^^^^^^^
 492 test.y:37.11-38.60:  symbol not found in production: then
 493  if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 494            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 495 test.y:37.40-45:     possibly meant: $[then.1] at $4
 496  if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 497                                         ^^^^^^
 498 test.y:40.43-55: error: invalid reference: '$then.1.field'
 499            { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
 500                                            ^^^^^^^^^^^^^
 501 test.y:39.11-40.66:  symbol not found in production: then
 502  if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 503            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 504 test.y:39.40-45:     possibly meant: $[then.1].field at $4
 505  if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
 506                                         ^^^^^^
 507 test.y:42.44-50: error: invalid reference: '$stmt.x'
 508            { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
 509                                             ^^^^^^^
 510 test.y:41.12-42.57:  symbol not found in production: stmt
 511  if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
 512             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 513 test.y:41.36-41:     possibly meant: $[stmt.x].x, hiding $stmt.x at $4
 514  if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
 515                                     ^^^^^^
 516 test.y:41.36-41:     possibly meant: $[stmt.x] at $4
 517  if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
 518                                     ^^^^^^
 519 test.y:44.13-22: error: invalid reference: '$if-stmt-a'
 520            { $if-stmt-a = new IfStmt($cond, $then, $else); };
 521              ^^^^^^^^^^
 522 test.y:43.12-44.59:  symbol not found in production: if
 523  if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 524             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 525 test.y:43.1-9:       possibly meant: $[if-stmt-a] at $$
 526  if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
 527  ^^^^^^^^^
 528 test.y:46.46-54: error: invalid reference: '$then-a.f'
 529            { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
 530                                               ^^^^^^^^^
 531 test.y:45.12-46.65:  symbol not found in production: then
 532  if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
 533             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 534 test.y:45.41-46:     possibly meant: $[then-a].f at $4
 535  if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
 536                                          ^^^^^^
 537 ]])
 538
 539 AT_CLEANUP
 540
 541 #######################################################################
 542
 543 AT_SETUP([Missing identifiers in brackets])
 544 AT_DATA_GRAMMAR([test.y],
 545 [[
 546 %%
 547 start: foo[] bar
 548   { s = $foo; }
 549 ]])
 550 AT_BISON_CHECK([-o test.c test.y], 1, [],
 551 [[test.y:11.12: error: an identifier expected
 552 ]])
 553 AT_CLEANUP
 554
 555 #######################################################################
 556
 557 AT_SETUP([Redundant words in brackets])
 558 AT_DATA_GRAMMAR([test.y],
 559 [[
 560 %%
 561 start: foo[ a d ] bar
 562   { s = $foo; }
 563 ]])
 564 AT_BISON_CHECK([-o test.c test.y], 1, [],
 565 [[test.y:11.15: error: unexpected identifier in bracketed name: 'd'
 566 ]])
 567 AT_CLEANUP
 568
 569 #######################################################################
 570
 571 AT_SETUP([Comments in brackets])
 572 AT_DATA_GRAMMAR([test.y],
 573 [[
 574 %%
 575 start: foo[/* comment */] bar
 576   { s = $foo; }
 577 ]])
 578 AT_BISON_CHECK([-o test.c test.y], 1, [],
 579 [[test.y:11.25: error: an identifier expected
 580 ]])
 581 AT_CLEANUP
 582
 583 #######################################################################
 584
 585 AT_SETUP([Stray symbols in brackets])
 586 AT_DATA_GRAMMAR([test.y],
 587 [[
 588 %%
 589 start: foo[ % /* aaa */ *&-.+\000\001\002\377 ] bar
 590   { s = $foo; }
 591 ]])
 592 AT_CHECK([[$PERL -pi -e 's/\\(\d{3})/chr(oct($1))/ge' test.y || exit 77]])
 593 AT_BISON_CHECK([-o test.c test.y], 1, [],
 594 [[test.y:11.13: error: invalid character in bracketed name: '%'
 595 test.y:11.25-27: error: invalid characters in bracketed name: '*&-'
 596 test.y:11.29-30: error: invalid characters in bracketed name: '+\0\001\002\377'
 597 ]])
 598 AT_CLEANUP
 599
 600 #######################################################################
 601
 602 AT_SETUP([Redundant words in LHS brackets])
 603 AT_DATA_GRAMMAR([test.y],
 604 [[
 605 %%
 606 start[a s]: foo;
 607 ]])
 608 AT_BISON_CHECK([-o test.c test.y], 1, [],
 609 [[test.y:11.9: error: unexpected identifier in bracketed name: 's'
 610 ]])
 611 AT_CLEANUP
 612
 613 #######################################################################
 614
 615 # Bison used to free twice the named ref for "a", since a single copy
 616 # was used in two rules.
 617 AT_SETUP([Factored LHS])
 618 AT_DATA_GRAMMAR([test.y],
 619 [[
 620 %%
 621 start[a]: "foo" | "bar";
 622 ]])
 623 AT_BISON_CHECK([-o test.c test.y])
 624 AT_CLEANUP
 625
 626 #######################################################################
 627
 628 AT_SETUP([Unresolved references])
 629 AT_DATA_GRAMMAR([test.y],
 630 [[
 631 %%
 632 stat:
 633   sym_a sym_b { func($sym.field); }
 634 | sym_a sym_b { func($<aa>sym.field); }
 635 | sym_a sym_b { func($[sym.field]); }
 636 | sym_a sym_b { func($<aa>[sym.field]); }
 637 | sym_a sym_b { func($sym); }
 638 | sym_a sym_b { func($<aa>sym); }
 639 | sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
 640 ;
 641
 642 stat1:
 643   sym_a sym_b { func($sym-field); }
 644 | sym_a sym_b { func($<aa>sym-field); }
 645 | sym_a sym_b { func($[sym-field]); }
 646 | sym_a sym_b { func($<aa>[sym-field]); }
 647 | sym_a sym_b { func($sym); }
 648 | sym_a sym_b { func($<aa>sym); }
 649 | sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
 650 ;
 651
 652 sym_a: 'a';
 653 sym_b: 'b';
 654 ]])
 655 AT_BISON_CHECK([-o test.c test.y], 1, [],
 656 [[test.y:12.22-31: error: invalid reference: '$sym.field'
 657 test.y:12.3-35:      symbol not found in production: sym
 658 test.y:13.22-35: error: invalid reference: '$<aa>sym.field'
 659 test.y:13.3-39:      symbol not found in production: sym
 660 test.y:14.22-33: error: invalid reference: '$[sym.field]'
 661 test.y:14.3-37:      symbol not found in production: sym.field
 662 test.y:15.22-37: error: invalid reference: '$<aa>[sym.field]'
 663 test.y:15.3-41:      symbol not found in production: sym.field
 664 test.y:16.22-25: error: invalid reference: '$sym'
 665 test.y:16.3-29:      symbol not found in production: sym
 666 test.y:17.22-29: error: invalid reference: '$<aa>sym'
 667 test.y:17.3-33:      symbol not found in production: sym
 668 test.y:18.22-27: error: invalid reference: '$[sym]'
 669 test.y:18.3-65:      symbol not found in production before $3: sym
 670 test.y:18.52-61: error: invalid reference: '$<aa>[sym]'
 671 test.y:18.3-65:      symbol not found in production: sym
 672 test.y:22.22-31: error: invalid reference: '$sym-field'
 673 test.y:22.3-35:      symbol not found in production: sym
 674 test.y:23.22-35: error: invalid reference: '$<aa>sym-field'
 675 test.y:23.3-39:      symbol not found in production: sym
 676 test.y:24.22-33: error: invalid reference: '$[sym-field]'
 677 test.y:24.3-37:      symbol not found in production: sym-field
 678 test.y:25.22-37: error: invalid reference: '$<aa>[sym-field]'
 679 test.y:25.3-41:      symbol not found in production: sym-field
 680 test.y:26.22-25: error: invalid reference: '$sym'
 681 test.y:26.3-29:      symbol not found in production: sym
 682 test.y:27.22-29: error: invalid reference: '$<aa>sym'
 683 test.y:27.3-33:      symbol not found in production: sym
 684 test.y:28.22-27: error: invalid reference: '$[sym]'
 685 test.y:28.3-65:      symbol not found in production before $3: sym
 686 test.y:28.52-61: error: invalid reference: '$<aa>[sym]'
 687 test.y:28.3-65:      symbol not found in production: sym
 688 ]])
 689 AT_CLEANUP
 690
 691 #######################################################################
 692
 693 AT_SETUP([[$ or @ followed by . or -]])
 694 AT_DATA([[test.y]],
 695 [[
 696 %%
 697 start:
 698   .field { $.field; }
 699 | 'a'    { @.field; }
 700 ;
 701 .field: ;
 702 ]])
 703 AT_BISON_CHECK([[test.y]], [[1]], [],
 704 [[test.y:4.12-18: error: invalid reference: '$.field'
 705 test.y:4.13:        syntax error after '$', expecting integer, letter, '_', '@<:@', or '$'
 706 test.y:4.3-8:       possibly meant: $[.field] at $1
 707 test.y:5.12-18: error: invalid reference: '@.field'
 708 test.y:5.13:        syntax error after '@', expecting integer, letter, '_', '@<:@', or '$'
 709 ]])
 710 AT_DATA([[test.y]],
 711 [[
 712 %%
 713 start:
 714   'a' { $-field; }
 715 | 'b' { @-field; }
 716 ;
 717 ]])
 718 AT_BISON_CHECK([[test.y]], [[0]], [],
 719 [[test.y:4.9: warning: stray '$' [-Wother]
 720 test.y:5.9: warning: stray '@' [-Wother]
 721 ]])
 722 AT_CLEANUP