1 files changed, 42 insertions, 0 deletions
diff --git a/gcc/testsuite/objc/execute/root_methods.m b/gcc/testsuite/objc/execute/root_methods.m
new file mode 100644
index 00000000000..4f2c2fa0ee4
--- /dev/null
+++ b/gcc/testsuite/objc/execute/root_methods.m
@@ -0,0 +1,42 @@
+/* Contributed by Nicola Pero - Thu Mar  8 16:27:46 CET 2001 */
+#include <objc/objc.h>
+
+/* Test that instance methods of root classes are available as class 
+   methods to other classes as well */
+
+@interface RootClass
+{
+  Class isa;
+}
+- (id) self;
+@end
+
+@implementation RootClass
+- (id) self
+{
+  return self;
+}
+@end
+
+@interface NormalClass : RootClass
+@end
+
+@implementation NormalClass : RootClass
+@end
+
+int main (void)
+{
+  Class normal = objc_get_class ("NormalClass");
+
+  if (normal == Nil)
+    {
+      abort ();
+    }
+
+  if ([NormalClass self] != normal)
+    {
+      abort ();
+    }
+
+  return 0;
+}