Subversion Repositories openrisc

/* Test that there is no problem initializing multiple static
   Protocol instances.  */
 
/* { dg-do run } */
/* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
 
#include <objc/Protocol.h>
 
@interface Object (TS_CAT)
- test;
@end
 
@implementation Object (TS_CAT)
- test { return self; }
@end
 
@protocol A
@end
 
@protocol B 
@end
 
@interface Dummy : Object <B>
@end
 
int main ()
{
  [@protocol(A) test];
  [@protocol(B) test];
 
  return 0;
}
 
@implementation Dummy
@end