gnu/dist/gcc4/gcc/testsuite/objc.dg/try-catch-6.m

   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
  12     @try {
  13       a = 1;
  14     }
  15     @catch (Object *e) {
  16       a = 2;
  17     }
  18     @finally {
  19       a = 3;
  20     }
  21   }
  22
  23   [pool free];
  24   return 0;
  25 }