2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.dg / cleanup-2.c
blob2c798023ccbd96b06485fd5fb46a901c21224d6a
1 /* { dg-do run } */
2 /* { dg-options "" } */
3 /* Verify that cleanup works in the most basic of ways. */
5 extern void exit(int);
6 extern void abort(void);
8 static void handler(void *p __attribute__((unused)))
10 exit (0);
13 static void doit(void)
15 int x __attribute__((cleanup (handler)));
18 int main()
20 doit ();
21 abort ();