OSDN Git Service

gcc/ada/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / obj-c++.dg / try-catch-7.mm
1 /* { dg-do compile } */
2 /* { dg-options "-fobjc-exceptions" } */
3
4 #include <objc/Object.h>
5
6 int main (int argc, const char * argv[]) {
7   Object * pool = [Object new];
8   int a;
9
10   if ( 1 ) {
11     @try {
12       a = 1;
13     }
14     @catch (Object *e) {
15       a = 2;
16     }
17     @finally {
18       a = 3;
19     }
20   }
21     
22   [pool free];
23   return 0;
24 }