OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [obj-c++.dg/] [try-catch-7.mm] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
/* { dg-do compile } */
2
/* { dg-options "-fobjc-exceptions" } */
3
 
4
#include 
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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.