Subversion Repositories openrisc

/* Testcase for PR 40323.  */

/* { dg-do compile } */

/* { dg-options "-fno-early-inlining"  } */

/* { dg-add-options bind_pic_locally } */

extern void do_something (const char *, int);

class Parent

{

private:

  const char *data;

public:

  Parent (const char *d) : data(d)

  {}

  int funcOne (int delim) const;

};

class AnotherParent

{

private:

  double d;

public:

  AnotherParent (void) : d(0)

  {}

};

class Child : public AnotherParent, Parent

{

private:

  int zzz;

public:

  Child (const char *d) : Parent(d)

  {}

};

int Parent::funcOne (int delim) const

{

  int i;

  for (i = 0; i < delim; i++)

    do_something(data, i);

  return 1;

}

int docalling (int (Child::* f)(int delim) const)

{

  Child S ("muhehehe");

  return (S.*f)(4);

}

typedef int (Parent::* my_mp_type)(int delim);

int main (int argc, char *argv[])

{

  int i;

  int (Parent::* f)(int ) const;

  int (Child::* g)(int ) const;

  f = &Parent::funcOne;

  g = (int (Child::* )(int) const) f;

  i = docalling (g);

  return i;

}