URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [cleanup-2.c] - Rev 298
Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "" } */ /* Verify that cleanup works in the most basic of ways. */ extern void exit(int); extern void abort(void); static void handler(void *p __attribute__((unused))) { exit (0); } static void doit(void) { int x __attribute__((cleanup (handler))); } int main() { doit (); abort (); }