1 files changed, 41 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-4.m b/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-4.m
new file mode 100644
index 000000000..a416c4a0c
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/objc/execute/formal_protocol-4.m
@@ -0,0 +1,41 @@
+/* Contributed by Nicola Pero - Fri Mar  9 21:35:47 CET 2001 */
+
+#include <stdlib.h>
+#include "../../objc-obj-c++-shared/TestsuiteObject.m"
+
+/* Test defining a protocol, a class adopting it in a category */
+
+@protocol Evaluating
+- (int) importance;
+@end
+
+@interface Feature : TestsuiteObject
+@end
+
+@implementation Feature
+@end
+
+@interface Feature (EvaluatingProtocol) <Evaluating>
+@end
+
+@implementation Feature (EvaluatingProtocol)
+- (int) importance
+{
+  return 1000;
+}
+@end
+
+int main (void)
+{
+  id <Evaluating> object;
+
+  object = [Feature new];
+
+  if ([object importance] != 1000)
+    {
+      abort ();
+    }
+
+  return 0;
+}
+