1 files changed, 58 insertions, 0 deletions
diff --git a/gcc/testsuite/objc/execute/formal_protocol-3.m b/gcc/testsuite/objc/execute/formal_protocol-3.m
new file mode 100644
index 00000000000..9fc2a768ded
--- /dev/null
+++ b/gcc/testsuite/objc/execute/formal_protocol-3.m
@@ -0,0 +1,58 @@
+/* Contributed by Nicola Pero - Fri Mar  9 21:35:47 CET 2001 */
+#include <objc/objc.h>
+#include <objc/Object.h>
+
+/* Test defining two protocol, a class adopting both of them, 
+   and using an object of type `id <Protocol1, Protocol2>' */ 
+
+@protocol Enabling
+- (BOOL) isEnabled;
+- (void) setEnabled: (BOOL)flag;
+@end
+
+@protocol Evaluating
+- (int) importance;
+@end
+
+@interface Feature : Object <Enabling, Evaluating>
+{
+  const char *name;
+  BOOL isEnabled;
+}
+@end
+
+@implementation Feature
+- (BOOL) isEnabled
+{
+  return isEnabled;
+}
+- (void) setEnabled: (BOOL)flag
+{
+  isEnabled = flag;
+}
+- (int) importance
+{
+  return 1000;
+}
+@end
+
+int main (void)
+{
+  id <Enabling, Evaluating> object;
+
+  object = [Feature new];
+
+  [object setEnabled: YES];
+  if (![object isEnabled])
+    {
+      abort ();
+    }
+
+  if ([object importance] != 1000)
+    {
+      abort ();
+    }
+
+  return 0;
+}
+