1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/testsuite/g++.dg/kext11.C b/gcc/testsuite/g++.dg/kext11.C
new file mode 100644
index 00000000000..d91a686e00f
--- /dev/null
+++ b/gcc/testsuite/g++.dg/kext11.C
@@ -0,0 +1,39 @@
+/* APPLE LOCAL file ptmf casts --bowdidge */
+/* In gcc-4.0 and beyond, kexts are not permitted to cast
+   pointer-to-member- functions into pointer-to-functions.  
+   These casts should be flagged as a hard error if
+   -fapple-kext is an option for the compile.  -fpermissive shouldn't permit
+   this, either.  This checks for OSMemberFunctionCast in the error message
+   because the error advises developers to use that function to replace
+   these casts.
+
+   Radar 4025923, gcc-4.0 should ban kexts from doing ptmf to ptf
+   conversions without OSMemberFunctionCast
+*/
+/* { dg-do compile { target powerpc*-apple-darwin* } } */
+/* { dg-options "-S -static -fapple-kext -fpermissive -fno-exceptions" } */
+
+typedef int(*INT_FUNC_INT)(int);
+class Superclass {
+public:
+  /* In 3.3, this would get the foo function for the class of "this".  In 4.0, it
+     gets the foo function for Superclass. */
+  virtual int init(void) {_myFunc = (INT_FUNC_INT)&Superclass::foo;}; /* { dg-error "OSMemberFunctionCast" } */
+  INT_FUNC_INT _myFunc;
+  virtual int foo(int i) { return 2;};
+};
+
+class Subclass : public Superclass  { 
+public:
+  virtual int foo(int) { return 1;};
+};
+
+main(int argc, char **argv) {
+  Superclass sup;
+  Subclass sub;
+  sup.init();
+  sup.foo(1);
+  sub.init();
+  sub.foo(1);
+}
+