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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [ppc-fmadd-3.c] - Rev 325

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

/* { dg-do compile { target powerpc*-*-* } } */
/* { dg-options "-O2" } */
/* { dg-final { scan-assembler-not "f(add|sub|mul)" } } */
 
void foo(double *a, double *b, double *c, double *d)
{
#if 0
  a[1] =  b[1] - c[1] * d[1];		// fneg, fmadd without fast-math
#endif
  a[3] = -b[3] - c[3] * d[3];		// fneg, fmsub without fast-math
#if 0
  a[5] = -( b[5] - c[5] * d[5]);	// fneg, fnmadd without fast-math
#endif
  a[7] = -(-b[7] - c[7] * d[7]);	// fneg, fnmsub without fast-math
  a[11] =  b[11] + c[11] * -d[11];	// fneg, fmadd without fast-math
  a[13] = -b[13] + c[13] * -d[13];	// fneg, fmsub without fast-math
  a[15] = -( b[15] + c[15] * -d[15]);	// fneg, fnmadd without fast-math
  a[17] = -(-b[17] + c[17] * -d[17]);	// fneg, fnmsub without fast-math
}
 
void foos(float *a, float *b, float *c, float *d)
{
#if 0
  a[1] =  b[1] - c[1] * d[1];		// fneg, fmadd without fast-math
#endif
  a[3] = -b[3] - c[3] * d[3];		// fneg, fmsub without fast-math
#if 0
  a[5] = -( b[5] - c[5] * d[5]);	// fneg, fnmadd without fast-math
#endif
  a[7] = -(-b[7] - c[7] * d[7]);	// fneg, fnmsub without fast-math
  a[11] =  b[11] + c[11] * -d[11];	// fneg, fmadd without fast-math
  a[13] = -b[13] + c[13] * -d[13];	// fneg, fmsub without fast-math
  a[15] = -( b[15] + c[15] * -d[15]);	// fneg, fnmadd without fast-math
  a[17] = -(-b[17] + c[17] * -d[17]);	// fneg, fnmsub without fast-math
}
 
 

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.