OSDN Git Service

2004-05-20 H.J. Lu <hongjiu.lu@intel.com>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / cleanup-2.c
1 /* { dg-do run } */
2 /* { dg-options "" } */
3 /* Verify that cleanup works in the most basic of ways.  */
4
5 extern void exit(int);
6 extern void abort(void);
7
8 static void handler(void *p __attribute__((unused)))
9 {
10   exit (0);
11 }
12
13 static void doit(void)
14 {
15   int x __attribute__((cleanup (handler)));
16 }
17
18 int main()
19 {
20   doit ();
21   abort ();
22 }