Subversion Repositories openrisc

// { dg-do compile { target s390x-*-* } }

// { dg-options "-O3 -fPIC" }

class A

{

public:

  void f (void) { _M_a = 0; }

  void g (void) { _M_a = 1; }

  void h (void);

private:

  int _M_a;

};

class B : virtual public A

{

};

void

test (B& x)

{

  for (int i = 0; i < 17; i++)

   {

     x.f ();

     (x.*&A::g) ();

     x.h ();

   }

}

// Check that every call to A::g goes via the PLT.

// { dg-final { scan-assembler-not "brasl\[^@\]*\n" } }