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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [fastmath-1.c] - Rev 713

Go to most recent revision | Compare with Previous | Blame | View Log

/* { dg-do run } */
/* { dg-options "-O2 -ffast-math" } */
 
extern void abort (void);
 
int foo ( float* dists,  int k) 
{ 
if ( ( dists [ 0 ] > 0 ) == ( dists [ 1 ] > 0 ) ) 
  return k;
return 0;
} 
main() {
  float dists[16] = { 0., 1., 1., 0., 0., -1., -1., 0.,
		     1., 1., 1., -1., -1., 1., -1., -1. };
  if ( foo(&dists[0], 1) +
       foo(&dists[2], 2) +
       foo(&dists[4], 4) +
       foo(&dists[6], 8) +
       foo(&dists[8], 16) +
       foo(&dists[10], 32) +
       foo(&dists[12], 64) +
       foo(&dists[14], 128)
	!= 156)
    abort();
  return 0;
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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