2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / objc / execute / cascading-1.m
blob67988a5db2a859ae3027dd84afcada2df3fa0263
1 #include <objc/Object.h>
3 @interface Foo : Object
4 + foo;
5 + bar;
6 @end
8 int foocalled = 0;
9 int barcalled = 0;
12 @implementation Foo
13 + foo
15     if (foocalled)
16       abort ();
17     foocalled = 1;
18     return self;
20 + bar
22     if (barcalled)
23       abort ();
24     barcalled = 1;
25     return self;
27 @end
29 int main(int argc,char **argv)
31     [[Foo foo] bar];
32     return 0;