Subversion Repositories openrisc

#include "tree-vect.h"
 
#ifndef N
#define N 64
#endif
 
char a[N];
float b[N];
long long l[N], m[N];
 
__attribute__((noinline, noclone)) int
f1 (void)
{
  int i;
  for (i = 0; i < N; i++)
    a[i] = i;
}
 
__attribute__((noinline, noclone)) int
f2 (void)
{
  int i;
  for (i = 0; i < N; i++)
    b[i] = (double) i;
}
 
__attribute__((noinline, noclone)) int
f3 (void)
{
  int i;
  for (i = 0; i < N; i++)
    l[i] = (long long) i * (i + 7);
}
 
__attribute__((noinline, noclone)) int
f4 (void)
{
  int i;
  for (i = 0; i < N; i++)
    m[i] = (long long) i * 7;
}
 
int
main ()
{
  int i;
 
  check_vect ();
  f1 ();
  f2 ();
  f3 ();
  f4 ();
  for (i = 0; i < N; i++)
    if (a[i] != i || b[i] != i || l[i] != i * (i + 7LL) || m[i] != i * 7LL)
      abort ();
  return 0;
}
 
/* { dg-final { cleanup-tree-dump "vect" } } */