[bison.git] / tests / named-refs.at

# Named references test.                           -*- Autotest -*-

# Copyright (C) 2009 Free Software Foundation, Inc.

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

AT_BANNER([[Named references tests.]])

AT_SETUP([Tutorial calculator])

AT_DATA_GRAMMAR([test.y],
[[
%{
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
typedef int semantic_value;
FILE *input;
static semantic_value global_result = 0;
static int global_count = 0;
static int power (int base, int exponent);
static void yyerror (const char *s);
int yylex (void);
%}

%union
{
  semantic_value ival;
};

%token CALC_EOF 0 "end of input"
%token <ival> NUM "number"
%type  <ival> exp

%nonassoc '='   /* comparison	       */
%left '-' '+'
%left '*' '/'
%precedence NEG /* negation--unary minus */
%right '^'      /* exponentiation        */

%%
input:
  line
| input line         {  }
;

line:
  '\n'
| exp '\n'           {  }
;

exp:
  NUM                { $$ = $NUM; }
| exp[l] '=' exp[r]
  {
    if ($l != $r)
      fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
   $$ = $l;
  }
| exp[x] '+' { $<ival>$ = $x; } [l] exp[r]  { $$ = $<ival>l + $r;    }
| exp[l] '-' exp[r]        { $$ = $l - $r;        }
| exp[l] '*' exp[r]        { $$ = $l * $r;        }
| exp[l] '/' exp[r]  { $$ = $l / $r;        }
| '-' exp  %prec NEG { $$ = -$2;            }
| exp[l] '^' exp[r]        { $$ = power ($l, $r); }
| '(' exp[e] ')'        { $$ = $e;           }
| '(' error ')'      { $$ = 1111; yyerrok;  }
| '!'                { $$ = 0; YYERROR;     }
| '-' error          { $$ = 0; YYERROR;     }
;
%%

static void yyerror (const char *s)
{
  fprintf (stderr, "%s\n", s);
}

static int get_char (void)
{
  int res = getc (input);
  return res;
}

static void unget_char (int c)
{
  ungetc (c, input);
}

static int read_signed_integer (void)
{
  int c = get_char ();
  int sign = 1;
  int n = 0;
  if (c == '-')
    {
      c = get_char ();
      sign = -1;
    }
  while (isdigit (c))
    {
      n = 10 * n + (c - '0');
      c = get_char ();
    }
  unget_char ( c);
  return sign * n;
}

int yylex (void)
{
  int c;
  /* Skip white space.  */
  while ((c = get_char ()) == ' ' || c == '\t') {}

  /* process numbers   */
  if (c == '.' || isdigit (c))
    {
      unget_char ( c);
      (yylval).ival = read_signed_integer ();
      return NUM;
    }

  /* Return end-of-file.  */
  if (c == EOF)
    return CALC_EOF;

  /* Return single chars. */
  return c;
}

static int power (int base, int exponent)
{
  int res = 1;
  if (exponent < 0)
    exit (3);
  for (/* Niente */; exponent; --exponent)
    res *= base;
  return res;
}

int main (int argc, const char **argv)
{
  semantic_value result = 0;
  int count = 0;
  int status;
  if (argc == 2)
    input = fopen (argv[1], "r");
  else
    input = stdin;
  if (!input)
    {
      perror (argv[1]);
      return 3;
    }
  status = yyparse ();
  fclose (input);
  if (global_result != result)
    abort ();
  if (global_count != count)
    abort ();
  return status;
}
]])

AT_DATA([input.txt],
[[
1 + 2 * 3 = 7
1 + 2 * -3 = -5
-1^2 = -1
(-1)^2 = 1
---1 = -1
1 - 2 - 3 = -4
1 - (2 - 3) = 2
2^2^3 = 256
(2^2)^3 = 64
]])

AT_BISON_CHECK([-o test.c test.y])
AT_COMPILE([[test]])
AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
AT_CLEANUP


#######################################################################


AT_SETUP([Undefined and ambiguous references])

AT_DATA_GRAMMAR([test.y],
[[
%{
static int power (int base, int exponent);
static void yyerror (const char *s);
int yylex (void);
%}

%union
{
  int ival;
};

%token CALC_EOF 0 "end of input"
%token <ival> NUM "number"
%type  <ival> exp

%nonassoc '='   /* comparison	       */
%left '-' '+'
%left '*' '/'
%precedence NEG /* negation--unary minus */
%right '^'      /* exponentiation        */

%%
input:
  line
| input line         {  }
;

line:
  '\n'
| exp '\n'           {  }
;

exp:
  NUM { $$ = $NUM; }
| exp[l] '=' exp[r]
  {
    if ($l != $r)
      fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
   $$ = $l;
  }
| exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
| exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
| exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
| exp[l] '/' exp[r]  { $$ = $l / $r;        }
| '-' exp  %prec NEG { $$ = -$2;            }
| exp[l] '^' exp[r]        { $$ = power ($l, $r12); }
| '(' exp ')'        { $$ = $expo;           }
| '(' error ')'      { $$ = 1111; yyerrok;  }
| '!'                { $$ = 0; YYERROR;     }
| '-' error          { $$ = 0; YYERROR;     }
;
%%
]])

AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:50.51-60: invalid reference: `$<ival>lo9', symbol not found
test.y:51.51-60: warning: misleading reference: `$<ival>exp'
test.y:42.1-3: warning:   refers to: $exp at $$
test.y:51.7: warning:   possibly meant: $x, hiding $exp at $1
test.y:51.41: warning:   possibly meant: $r, hiding $exp at $4
test.y:52.51-52: $l of `exp' has no declared type
test.y:55.46-49: invalid reference: `$r12', symbol not found
test.y:56.29-33: invalid reference: `$expo', symbol not found
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Misleading references])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo foo.bar { $foo.bar; }
foo: '1'
foo.bar: '2'
]])
AT_BISON_CHECK([-o test.c test.y], 0, [],
[[test.y:11.22-29: warning: misleading reference: `$foo.bar'
test.y:11.8-10: warning:   refers to: $foo at $1
test.y:11.12-18: warning:   possibly meant: $[foo.bar] at $2
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Many kinds of errors])
AT_DATA_GRAMMAR([test.y],
[[
%token IDENT
%token NUMBER
%token ASSIGNOP
%token IF
%token IF1
%token THEN
%token ELSE
%token FI
%token WHILE
%token DO
%token OD
%start program
%%
if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
          { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
if_stmt2: IF expr[cond] THEN stmt[then] FI
          { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
if_stmt3: IF expr[cond] THEN stmt.list FI
          { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
          { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
          { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
          { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
          { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if-stmt-a = new IfStmt($cond, $then, $else); };
if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
          { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
program: stmt.list;
stmt.list:  stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
        |   stmt ';' { SL = new StmtList();  SL->insert($1); $$ = SL; }
        ;
stmt:  assign_stmt { $$ = $1; }
    |  if_stmt { $$ = $1; }
    |  if_stmt1 { $$ = $1; }
    |  while_stmt { $$ = $1; }
    ;
assign_stmt: IDENT ASSIGNOP expr
       { $$ = new AssignStmt(string($1),$3); };
if_stmt: IF expr[cond] THEN stmt.list FI
       { $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
while_stmt[res]: WHILE expr DO stmt.list OD
       { $res = new WhileStmt($[expr], $[stmt.list]); };
expr: expr '+' term   { $$ = new Plus($1,$3); }
    | expr '-' term   { $$ = new Minus($1,$3); }
    | term            { $$ = $1; }
    ;
term: term '*' factor   { $$ = new Times($1,$3); }
    | factor            { $$ = $1; }
    ;
factor:     '(' expr ')'  { $$ = $2; }
    |       NUMBER { $$ = new Number($1); }
    |       IDENT { $$ = new Ident(string($1)); }
    ;
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:24.36-41: invalid reference: `$cond1', symbol not found
test.y:26.43-53: invalid reference: `$stmt.field'
test.y:25.35-38:   possibly meant: $then.field, hiding $stmt.field at $4
test.y:28.43-52: invalid reference: `$stmt.list'
test.y:27.30-38:   possibly meant: $[stmt.list] at $4
test.y:30.43-46: ambiguous reference: `$xyz'
test.y:29.35-37:   refers to: $xyz at $4
test.y:29.50-52:   refers to: $xyz at $6
test.y:32.43-52: invalid reference: `$stmt.list'
test.y:31.40-43:   possibly meant: $then, hiding $[stmt.list] at $4
test.y:31.61-64:   possibly meant: $else, hiding $[stmt.list] at $6
test.y:34.43-58: invalid reference: `$stmt.list.field'
test.y:33.40-43:   possibly meant: $then.field, hiding $[stmt.list].field at $4
test.y:33.61-64:   possibly meant: $else.field, hiding $[stmt.list].field at $6
test.y:36.43-54: invalid reference: `$[stmt.list]'
test.y:35.40-43:   possibly meant: $then, hiding $[stmt.list] at $4
test.y:35.61-64:   possibly meant: $else, hiding $[stmt.list] at $6
test.y:38.43-49: invalid reference: `$then.1'
test.y:37.40-45:   possibly meant: $[then.1] at $4
test.y:40.43-55: invalid reference: `$then.1.field'
test.y:39.40-45:   possibly meant: $[then.1].field at $4
test.y:42.44-50: invalid reference: `$stmt.x'
test.y:41.36-41:   possibly meant: $[stmt.x].x, hiding $stmt.x at $4
test.y:41.36-41:   possibly meant: $[stmt.x] at $4
test.y:44.13-22: invalid reference: `$if-stmt-a'
test.y:43.1-9:   possibly meant: $[if-stmt-a] at $$
test.y:46.46-54: invalid reference: `$then-a.f'
test.y:45.41-46:   possibly meant: $[then-a].f at $4
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Missing identifiers in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.12: an identifier expected
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Redundant words in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[ a d ] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.15: unexpected identifier in bracketed name: `d'
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Comments in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[/* comment */] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.25: an identifier expected
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Stray symbols in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[ /* aaa */ *&-+ ] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.23: invalid character in bracketed name: `*'
test.y:11.24: invalid character in bracketed name: `&'
test.y:11.26: invalid character in bracketed name: `+'
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Redundant words in LHS brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start[a s]: foo
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.9: unexpected identifier in bracketed name: `s'
]])
AT_CLEANUP
Commit	Line	Data
b9f1d9a4 AR	1	# Named references test. -- Autotest --
b9f1d9a4 AR	2
872b52bc	3	# Copyright (C) 2009 Free Software Foundation, Inc.
b9f1d9a4 AR	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	AT_BANNER([[Named references tests.]])
	19
	20	AT_SETUP([Tutorial calculator])
	21
	22	AT_DATA_GRAMMAR([test.y],
	23	[[
	24	%{
	25	#include <stdio.h>
	26	#include <stdlib.h>
	27	#include <string.h>
	28	#include <ctype.h>
	29	typedef int semantic_value;
	30	FILE *input;
	31	static semantic_value global_result = 0;
	32	static int global_count = 0;
	33	static int power (int base, int exponent);
	34	static void yyerror (const char *s);
	35	int yylex (void);
	36	%}
	37
	38	%union
	39	{
	40	semantic_value ival;
	41	};
	42
	43	%token CALC_EOF 0 "end of input"
	44	%token <ival> NUM "number"
	45	%type <ival> exp
	46
	47	%nonassoc '=' /* comparison */
	48	%left '-' '+'
	49	%left '*' '/'
	50	%precedence NEG /* negation--unary minus */
	51	%right '^' /* exponentiation */
	52
	53	%%
	54	input:
	55	line
	56	\| input line { }
	57	;
	58
	59	line:
	60	'\n'
	61	\| exp '\n' { }
	62	;
	63
	64	exp:
	65	NUM { $$ = $NUM; }
	66	\| exp[l] '=' exp[r]
	67	{
68	if ($l != $r)
69	fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
70	$$ = $l;
71	}
72	\| exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>l + $r; }
73	\| exp[l] '-' exp[r] { $$ = $l - $r; }
74	\| exp[l] '' exp[r] { $$ = $l $r; }
75	\| exp[l] '/' exp[r] { $$ = $l / $r; }
76	\| '-' exp %prec NEG { $$ = -$2; }
77	\| exp[l] '^' exp[r] { $$ = power ($l, $r); }
78	\| '(' exp[e] ')' { $$ = $e; }
79	\| '(' error ')' { $$ = 1111; yyerrok; }
80	\| '!' { $$ = 0; YYERROR; }
81	\| '-' error { $$ = 0; YYERROR; }
82	;
83	%%
84
85	static void yyerror (const char *s)
86	{
87	fprintf (stderr, "%s\n", s);
88	}
89
90	static int get_char (void)
91	{
92	int res = getc (input);
93	return res;
94	}
95
96	static void unget_char (int c)
97	{
98	ungetc (c, input);
99	}
100
101	static int read_signed_integer (void)
102	{
103	int c = get_char ();
104	int sign = 1;
105	int n = 0;
106	if (c == '-')
107	{
108	c = get_char ();
109	sign = -1;
110	}
111	while (isdigit (c))
112	{
113	n = 10 * n + (c - '0');
114	c = get_char ();
115	}
116	unget_char ( c);
117	return sign * n;
118	}
119
120	int yylex (void)
121	{
122	int c;
123	/* Skip white space. */
124	while ((c = get_char ()) == ' ' \|\| c == '\t') {}
125
126	/* process numbers */
127	if (c == '.' \|\| isdigit (c))
128	{
129	unget_char ( c);
130	(yylval).ival = read_signed_integer ();
131	return NUM;
132	}
133
134	/* Return end-of-file. */
135	if (c == EOF)
136	return CALC_EOF;
137
138	/* Return single chars. */
139	return c;
140	}
141
142	static int power (int base, int exponent)
143	{
144	int res = 1;
145	if (exponent < 0)
146	exit (3);
147	for (/* Niente */; exponent; --exponent)
148	res *= base;
149	return res;
150	}
151
152	int main (int argc, const char **argv)
153	{
154	semantic_value result = 0;
155	int count = 0;
156	int status;
157	if (argc == 2)
158	input = fopen (argv[1], "r");
159	else
160	input = stdin;
161	if (!input)
162	{
163	perror (argv[1]);
164	return 3;
165	}
166	status = yyparse ();
167	fclose (input);
168	if (global_result != result)
169	abort ();
170	if (global_count != count)
171	abort ();
172	return status;
173	}
174	]])
175
176	AT_DATA([input.txt],
177	[[
178	1 + 2 * 3 = 7
179	1 + 2 * -3 = -5
180	-1^2 = -1
181	(-1)^2 = 1
182	---1 = -1
183	1 - 2 - 3 = -4
184	1 - (2 - 3) = 2
185	2^2^3 = 256
186	(2^2)^3 = 64
187	]])
188
189	AT_BISON_CHECK([-o test.c test.y])
190	AT_COMPILE([[test]])
191	AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
192	AT_CLEANUP
193
194
195
196	#######################################################################
197
198
199	AT_SETUP([Undefined and ambiguous references])
200
201	AT_DATA_GRAMMAR([test.y],
202	[[
203	%{
204	static int power (int base, int exponent);
205	static void yyerror (const char *s);
206	int yylex (void);
207	%}
208
209	%union
210	{
211	int ival;
212	};
213
214	%token CALC_EOF 0 "end of input"
215	%token <ival> NUM "number"
216	%type <ival> exp
217
218	%nonassoc '=' /* comparison */
219	%left '-' '+'
220	%left '*' '/'
221	%precedence NEG /* negation--unary minus */
222	%right '^' /* exponentiation */
223
224	%%
225	input:
226	line
227	\| input line { }
228	;
229
230	line:
231	'\n'
232	\| exp '\n' { }
233	;
234
235	exp:
236	NUM { $$ = $NUM; }
237	\| exp[l] '=' exp[r]
238	{
239	if ($l != $r)
240	fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
241	$$ = $l;
242	}
243	\| exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
244	\| exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
245	\| exp[x] '' { $<ival>$ = $x; } [l] exp[r] { $$ = $l $r; }
246	\| exp[l] '/' exp[r] { $$ = $l / $r; }
247	\| '-' exp %prec NEG { $$ = -$2; }
248	\| exp[l] '^' exp[r] { $$ = power ($l, $r12); }
249	\| '(' exp ')' { $$ = $expo; }
250	\| '(' error ')' { $$ = 1111; yyerrok; }
251	\| '!' { $$ = 0; YYERROR; }
252	\| '-' error { $$ = 0; YYERROR; }
253	;
254	%%
255	]])
256
257	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc	258	[[test.y:50.51-60: invalid reference: `$<ival>lo9', symbol not found
ce268795 AR	259	test.y:51.51-60: warning: misleading reference: `$<ival>exp'
	260	test.y:42.1-3: warning: refers to: $exp at $$
	261	test.y:51.7: warning: possibly meant: $x, hiding $exp at $1
	262	test.y:51.41: warning: possibly meant: $r, hiding $exp at $4
b9f1d9a4	263	test.y:52.51-52: $l of `exp' has no declared type
872b52bc AR	264	test.y:55.46-49: invalid reference: `$r12', symbol not found
872b52bc AR	265	test.y:56.29-33: invalid reference: `$expo', symbol not found
b9f1d9a4 AR	266	]])
	267	AT_CLEANUP
	268
	269	#######################################################################
	270
	271	AT_SETUP([Misleading references])
	272	AT_DATA_GRAMMAR([test.y],
	273	[[
	274	%%
	275	start: foo foo.bar { $foo.bar; }
	276	foo: '1'
	277	foo.bar: '2'
	278	]])
ce268795 AR	279	AT_BISON_CHECK([-o test.c test.y], 0, [],
	280	[[test.y:11.22-29: warning: misleading reference: `$foo.bar'
	281	test.y:11.8-10: warning: refers to: $foo at $1
	282	test.y:11.12-18: warning: possibly meant: $[foo.bar] at $2
b9f1d9a4 AR	283	]])
	284	AT_CLEANUP
	285
	286	#######################################################################
	287
	288	AT_SETUP([Many kinds of errors])
	289	AT_DATA_GRAMMAR([test.y],
	290	[[
	291	%token IDENT
	292	%token NUMBER
	293	%token ASSIGNOP
	294	%token IF
	295	%token IF1
	296	%token THEN
	297	%token ELSE
	298	%token FI
	299	%token WHILE
	300	%token DO
	301	%token OD
	302	%start program
	303	%%
	304	if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
	305	{ $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
	306	if_stmt2: IF expr[cond] THEN stmt[then] FI
	307	{ $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
	308	if_stmt3: IF expr[cond] THEN stmt.list FI
	309	{ $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
	310	if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
	311	{ $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
	312	if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	313	{ $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
	314	if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	315	{ $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
	316	if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	317	{ $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
	318	if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
	319	{ $if_stmt8 = new IfStmt($cond, $then.1, $else); };
	320	if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
	321	{ $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
	322	if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
	323	{ $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
	324	if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	325	{ $if-stmt-a = new IfStmt($cond, $then, $else); };
	326	if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
	327	{ $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
	328	program: stmt.list;
	329	stmt.list: stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
	330	\| stmt ';' { SL = new StmtList(); SL->insert($1); $$ = SL; }
	331	;
	332	stmt: assign_stmt { $$ = $1; }
	333	\| if_stmt { $$ = $1; }
	334	\| if_stmt1 { $$ = $1; }
	335	\| while_stmt { $$ = $1; }
	336	;
	337	assign_stmt: IDENT ASSIGNOP expr
	338	{ $$ = new AssignStmt(string($1),$3); };
	339	if_stmt: IF expr[cond] THEN stmt.list FI
	340	{ $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
	341	while_stmt[res]: WHILE expr DO stmt.list OD
	342	{ $res = new WhileStmt($[expr], $[stmt.list]); };
	343	expr: expr '+' term { $$ = new Plus($1,$3); }
	344	\| expr '-' term { $$ = new Minus($1,$3); }
	345	\| term { $$ = $1; }
	346	;
347	term: term '*' factor { $$ = new Times($1,$3); }
348	\| factor { $$ = $1; }
349	;
350	factor: '(' expr ')' { $$ = $2; }
351	\| NUMBER { $$ = new Number($1); }
352	\| IDENT { $$ = new Ident(string($1)); }
353	;
354	]])
355	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc AR	356	[[test.y:24.36-41: invalid reference: `$cond1', symbol not found
872b52bc AR	357	test.y:26.43-53: invalid reference: `$stmt.field'
b9f1d9a4	358	test.y:25.35-38: possibly meant: $then.field, hiding $stmt.field at $4
872b52bc	359	test.y:28.43-52: invalid reference: `$stmt.list'
b9f1d9a4	360	test.y:27.30-38: possibly meant: $[stmt.list] at $4
872b52bc	361	test.y:30.43-46: ambiguous reference: `$xyz'
b9f1d9a4 AR	362	test.y:29.35-37: refers to: $xyz at $4
b9f1d9a4 AR	363	test.y:29.50-52: refers to: $xyz at $6
872b52bc	364	test.y:32.43-52: invalid reference: `$stmt.list'
b9f1d9a4 AR	365	test.y:31.40-43: possibly meant: $then, hiding $[stmt.list] at $4
b9f1d9a4 AR	366	test.y:31.61-64: possibly meant: $else, hiding $[stmt.list] at $6
872b52bc	367	test.y:34.43-58: invalid reference: `$stmt.list.field'
b9f1d9a4 AR	368	test.y:33.40-43: possibly meant: $then.field, hiding $[stmt.list].field at $4
b9f1d9a4 AR	369	test.y:33.61-64: possibly meant: $else.field, hiding $[stmt.list].field at $6
872b52bc	370	test.y:36.43-54: invalid reference: `$[stmt.list]'
b9f1d9a4 AR	371	test.y:35.40-43: possibly meant: $then, hiding $[stmt.list] at $4
b9f1d9a4 AR	372	test.y:35.61-64: possibly meant: $else, hiding $[stmt.list] at $6
872b52bc	373	test.y:38.43-49: invalid reference: `$then.1'
b9f1d9a4	374	test.y:37.40-45: possibly meant: $[then.1] at $4
872b52bc	375	test.y:40.43-55: invalid reference: `$then.1.field'
b9f1d9a4	376	test.y:39.40-45: possibly meant: $[then.1].field at $4
872b52bc	377	test.y:42.44-50: invalid reference: `$stmt.x'
b9f1d9a4 AR	378	test.y:41.36-41: possibly meant: $[stmt.x].x, hiding $stmt.x at $4
b9f1d9a4 AR	379	test.y:41.36-41: possibly meant: $[stmt.x] at $4
872b52bc	380	test.y:44.13-22: invalid reference: `$if-stmt-a'
b9f1d9a4	381	test.y:43.1-9: possibly meant: $[if-stmt-a] at $$
872b52bc	382	test.y:46.46-54: invalid reference: `$then-a.f'
b9f1d9a4 AR	383	test.y:45.41-46: possibly meant: $[then-a].f at $4
	384	]])
	385	AT_CLEANUP
	386
	387	#######################################################################
	388
	389	AT_SETUP([Missing identifiers in brackets])
	390	AT_DATA_GRAMMAR([test.y],
	391	[[
	392	%%
	393	start: foo[] bar
	394	{ s = $foo; }
	395	]])
	396	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc	397	[[test.y:11.12: an identifier expected
b9f1d9a4 AR	398	]])
	399	AT_CLEANUP
	400
	401	#######################################################################
	402
	403	AT_SETUP([Redundant words in brackets])
	404	AT_DATA_GRAMMAR([test.y],
	405	[[
	406	%%
	407	start: foo[ a d ] bar
	408	{ s = $foo; }
	409	]])
	410	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc	411	[[test.y:11.15: unexpected identifier in bracketed name: `d'
b9f1d9a4 AR	412	]])
	413	AT_CLEANUP
	414
	415	#######################################################################
	416
	417	AT_SETUP([Comments in brackets])
	418	AT_DATA_GRAMMAR([test.y],
	419	[[
	420	%%
	421	start: foo[/* comment */] bar
	422	{ s = $foo; }
	423	]])
	424	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc	425	[[test.y:11.25: an identifier expected
b9f1d9a4 AR	426	]])
	427	AT_CLEANUP
	428
	429	#######################################################################
	430
	431	AT_SETUP([Stray symbols in brackets])
	432	AT_DATA_GRAMMAR([test.y],
	433	[[
	434	%%
	435	start: foo[ /* aaa / &-+ ] bar
	436	{ s = $foo; }
	437	]])
	438	AT_BISON_CHECK([-o test.c test.y], 1, [],
	439	[[test.y:11.23: invalid character in bracketed name: `*'
	440	test.y:11.24: invalid character in bracketed name: `&'
	441	test.y:11.26: invalid character in bracketed name: `+'
	442	]])
	443	AT_CLEANUP
	444
	445	#######################################################################
	446
	447	AT_SETUP([Redundant words in LHS brackets])
	448	AT_DATA_GRAMMAR([test.y],
	449	[[
	450	%%
	451	start[a s]: foo
	452	]])
	453	AT_BISON_CHECK([-o test.c test.y], 1, [],
872b52bc	454	[[test.y:11.9: unexpected identifier in bracketed name: `s'
b9f1d9a4 AR	455	]])
b9f1d9a4 AR	456	AT_CLEANUP