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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20021113-1.c] - Blame information for rev 841

Go to most recent revision | Details | Compare with Previous | View Log


/* This program tests a data flow bug that would cause constant propagation
   to propagate constants through function calls.  */
 
foo (int *p)
{
  *p = 10;
}
 
main()
{
  int *ptr = alloca (sizeof (int));
  *ptr = 5;
  foo (ptr);
  if (*ptr == 5)
    abort ();
  exit (0);
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* This program tests a data flow bug that would cause constant propagation`
2			`to propagate constants through function calls. */`
3
4			`foo (int *p)`
5			`{`
6			`*p = 10;`
7			`}`
8
9			`main()`
10			`{`
11			`int *ptr = alloca (sizeof (int));`
12			`*ptr = 5;`
13			`foo (ptr);`
14			`if (*ptr == 5)`
15			`abort ();`
16			`exit (0);`
17			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20021113-1.c] - Blame information for rev 841