OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [921013-1.c] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
f(d,x,y,n)
2
int*d;
3
float*x,*y;
4
int n;
5
{
6
  while(n--){*d++=*x++==*y++;}
7
}
8
 
9
main()
10
{
11
  int r[4];
12
  float a[]={5,1,3,5};
13
  float b[]={2,4,3,0};
14
  int i;
15
  f(r,a,b,4);
16
  for(i=0;i<4;i++)
17
    if((a[i]==b[i])!=r[i])
18
      abort();
19
  exit(0);
20
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.