Subversion Repositories openrisc_me

/* Test for handling of protocol hierarchies.  */
/* Author: Ziemowit Laski <zlaski@apple.com>.  */
/* { dg-do compile } */
 
/* One-line substitute for objc/objc.h */
typedef struct objc_object { struct objc_class *class_pointer; } *id;
 
@protocol NSObj 
- (void)someMethod;
@end
 
@protocol NSCopying 
- (void)someOtherMethod;
@end
 
@interface NSObject <NSObj>
- (void)someMethod; 
@end
 
@implementation NSObject
- (void)someMethod {}
@end
 
@protocol Booing <NSObj>
- (void)boo;
@end
 
@interface Boo: NSObject <Booing>  // protocol has only one parent
@end
 
@implementation Boo
- (void)boo {}
@end
 
@protocol Fooing <NSCopying, NSObj>  // Fooing has two parent protocols
- (void)foo;
@end
 
@interface Foo: NSObject <Fooing>
@end
 
@implementation Foo
- (void)foo {}
- (void)someOtherMethod {}
@end
 
int foo(void) {
  id<Booing, Fooing> stupidVar;
  [stupidVar boo];
  [stupidVar foo];
  [stupidVar anotherMsg]; /* { dg-warning ".\\-anotherMsg. not found in protocol" } */
       /* { dg-warning "no .\\-anotherMsg. method found" "" { target *-*-* } 51 } */
  return 0;
}
 
/* { dg-warning "Messages without a matching method signature" "" { target *-*-* } 0 } */
/* { dg-warning "will be assumed to return .id. and accept" "" { target *-*-* } 0 } */
/* { dg-warning ".\.\.\.. as arguments" "" { target *-*-* } 0 } */