1 files changed, 65 insertions, 0 deletions
diff --git a/gcc/testsuite/objc/execute/class_self-2.m b/gcc/testsuite/objc/execute/class_self-2.m
new file mode 100644
index 0000000..e64fcf9
--- /dev/null
+++ b/gcc/testsuite/objc/execute/class_self-2.m
@@ -0,0 +1,65 @@
+/* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */
+#include <objc/objc.h>
+
+/* Test calling a class method on self where self has been redefined
+   to be another class - the call requires a cast */
+
+
+/* The first class */
+struct d
+{
+  int a;
+};
+
+@interface ClassA
+{
+  Class isa;
+}
++ (Class) class;
++ (struct d) method;
+@end
+
+@implementation ClassA
++ (Class) class
+{
+  return self;
+}
+
++ (struct d) method
+{
+  struct d u;
+  u.a = 5;
+  
+  return u;
+}
+@end
+
+/* The second class */
+@interface TestClass
+{
+  Class isa;
+}
++ (void) test;
+@end
+
+@implementation TestClass
++ (void) test
+{
+  self = [ClassA class];
+  
+
+  if ([(Class)self method].a != 5)
+    {
+      abort ();
+    }
+}
+
+@end
+
+
+int main (void)
+{
+  [TestClass test];
+
+  return 0;
+}