Fortran: fix ICE with use with rename of namelist member [PR116530]
[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 20060109-1.c
blob073d222c1936066fc39370815e76f9216a04a886
1 /* This test exposed a bug in combine where it was improperly changing
2 the mode of a register. The bug appeared to be latent until web
3 was moved after combine. This is the reduced test that fails
4 by crashing in reload. */
7 typedef struct cpp_reader cpp_reader;
8 typedef struct cpp_string cpp_string;
9 struct cpp_string
11 unsigned int len;
12 const unsigned char *text;
14 struct cpp_callbacks
16 void (*ident) (cpp_reader *, unsigned int, const cpp_string *);
18 static void cb_ident (cpp_reader *, unsigned int, const cpp_string *);
19 int cpp_interpret_string (cpp_reader *, const cpp_string *, int,
20 cpp_string *, int);
21 void
22 init_c_lex (void)
24 struct cpp_callbacks *cb;
25 cb->ident = cb_ident;
27 static void
28 cb_ident (cpp_reader * pfile __attribute__ ((__unused__)), unsigned int
29 line
30 __attribute__ ((__unused__)), const cpp_string * str
31 __attribute__ ((__unused__)))
34 cpp_string cstr = {
36 if (cpp_interpret_string (pfile, str, 1, &cstr, 0))