| /* Check if sending messages to super does not interfere with sending messages |
| to classes. */ |
| /* Contributed by Ziemowit Laski <zlaski@apple.com>. */ |
| /* { dg-do run } */ |
| /* { dg-options "-lobjc" } */ |
| |
| #include <objc/Object.h> |
| |
| extern void abort(void); |
| #define CHECK_IF(expr) if(!(expr)) abort() |
| |
| @interface Base: Object |
| + (int) class_func1; |
| - (int) instance_func1; |
| @end |
| |
| @interface Derived: Base |
| + (int) class_func1; |
| @end |
| |
| @interface Derived (Categ) |
| - (int) instance_func1; |
| @end |
| |
| @implementation Base |
| + (int) class_func1 { return 234; } |
| - (int) instance_func1 { return 345; } |
| @end |
| |
| @implementation Derived |
| + (int) class_func1 { |
| int i = [super class_func1]; |
| i += [Base class_func1]; |
| return i; |
| } |
| @end |
| |
| @implementation Derived (Categ) |
| - (int) instance_func1 { |
| int i = [super instance_func1]; |
| i += [Base class_func1]; /* { dg-bogus "invalid receiver type" } */ |
| return i; |
| } |
| @end |
| |
| int main(void) { |
| Base *base = [[Base alloc] init]; /* { dg-bogus "invalid receiver type" } */ |
| Derived *derived = [[Derived alloc] init]; |
| CHECK_IF([Base class_func1] == 234); /* { dg-bogus "invalid receiver type" } */ |
| CHECK_IF([Derived class_func1] == 234 + 234); |
| CHECK_IF([base instance_func1] == 345); |
| CHECK_IF([derived instance_func1] == 234 + 345); |
| return 0; |
| } |