URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pta-escape-1.c] - Rev 839
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-fdump-tree-alias" } */ /* { dg-skip-if "" { *-*-* } { "-O0" } { "" } } */ int *p; void __attribute__((noinline,noclone)) bar (void) { *p = 1; } int __attribute__((noinline,noclone)) foo (__SIZE_TYPE__ addr) { int i; /* q points to ANYTHING */ int **q = (int **)addr; /* this store needs to cause i to escape */ *q = &i; i = 0; /* and thus be clobbered by this function call */ bar (); return i; } extern void abort (void); int main() { if (foo ((__SIZE_TYPE__)&p) != 1) abort (); return 0; } /* { dg-final { scan-tree-dump "ESCAPED = { ESCAPED NONLOCAL i }" "alias" } } */ /* { dg-final { cleanup-tree-dump "alias" } } */
Go to most recent revision | Compare with Previous | Blame | View Log