Subversion Repositories openrisc

/* { dg-do run } */

/* { dg-options "-O3 -fmodulo-sched -fstrict-aliasing -fdump-rtl-sms -fmodulo-sched-allow-regmoves --param sms-min-sc=1" } */

extern void abort (void);

__attribute__ ((noinline))

void foo (int * __restrict__ a, int * __restrict__ b, short * c)

{

   int i;

   for(i = 0; i < 100; i+=4)

     {

       a[i] = b[i] * c[i];

       a[i+1] = b[i+1] * c[i+1];

       a[i+2] = b[i+2] * c[i+2];

       a[i+3] = b[i+3] * c[i+3];

     }

}

int a[100], b[100];

short c[100];

int main()

{

#if (__SIZEOF_INT__ <= 2)

  int i;

  long res;

#else

  int i, res;

#endif  

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

    {

      b[i] = c[i] = i;

    }

  foo(a, b, c);

  res = 0;

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

    {

      res += a[i];

    }

  if(res != 328350)

    abort();

  return 0;

}

/* { dg-final { scan-rtl-dump-times "SMS succeeded" 1 "sms" { target spu-*-* } } } */

/* { dg-final { cleanup-rtl-dump "sms" } } */