URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [trad/] [strify.c] - Blame information for rev 816

Details | Compare with Previous | View Log


/* Test whether traditional stringify works.  */
/* { dg-do run } */
 
#define foo(a, b) c="a"; d="b";
 
extern void abort ();
extern void exit (int);
 
int main ()
{
  char *c, *d;
 
  foo (p,q);
  if (c[0] != 'p' || d[0] != 'q')
    abort ();
 
  exit (0);
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* Test whether traditional stringify works. */`
2			`/* { dg-do run } */`
3
4			`#define foo(a, b) c="a"; d="b";`
5
6			`extern void abort ();`
7			`extern void exit (int);`
8
9			`int main ()`
10			`{`
11			`char c, d;`
12
13			`foo (p,q);`
14			`if (c[0] != 'p' \|\| d[0] != 'q')`
15			`abort ();`
16
17			`exit (0);`
18			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [trad/] [strify.c] - Blame information for rev 816