1 files changed, 45 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-7.m b/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-7.m
new file mode 100644
index 000000000..9e9e730ff
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-7.m
@@ -0,0 +1,45 @@
+/* Contributed by Nicola Pero - Fri Mar  9 21:35:47 CET 2001 */
+
+#include <stdlib.h>
+#include <objc/Protocol.h>
+#include "../../objc-obj-c++-shared/TestsuiteObject.m"
+
+/* Test defining two protocols, one incorporating the other one. */
+
+@protocol Configuring
+- (void) configure;
+@end
+
+@protocol Processing <Configuring>
+- (void) process;
+@end
+
+/* A class adopting the protocol */
+@interface Test : TestsuiteObject <Processing>
+{
+  BOOL didConfigure;
+  BOOL didProcess;
+}
+@end
+
+@implementation Test
+- (void) configure
+{
+  didConfigure = YES;
+}
+- (void) process
+{
+  didProcess = YES;
+}
+@end
+
+int main (void)
+{
+  id <Processing> object = [Test new];
+
+  [object configure];
+  [object process];
+
+  return 0;
+}
+