Subversion Repositories openrisc

/* Test that the compiler properly generates floating point multiply
   and add instructions FMA4 systems.  */
 
/* { dg-do compile { target { ! { ia32 } } } } */
/* { dg-options "-O2 -mfma4" } */
 
#ifndef __FP_FAST_FMAF
# error "__FP_FAST_FMAF should be defined"
#endif
#ifndef __FP_FAST_FMA
# error "__FP_FAST_FMA should be defined"
#endif
 
float
flt_mul_add (float a, float b, float c)
{
  return __builtin_fmaf (a, b, c);
}
 
double
dbl_mul_add (double a, double b, double c)
{
  return __builtin_fma (a, b, c);
}
 
float
flt_mul_sub (float a, float b, float c)
{
  return __builtin_fmaf (a, b, -c);
}
 
double
dbl_mul_sub (double a, double b, double c)
{
  return __builtin_fma (a, b, -c);
}
 
float
flt_neg_mul_add_1 (float a, float b, float c)
{
  return __builtin_fmaf (-a, b, c);
}
 
double
dbl_neg_mul_add_1 (double a, double b, double c)
{
  return __builtin_fma (-a, b, c);
}
 
float
flt_neg_mul_add_2 (float a, float b, float c)
{
  return __builtin_fmaf (a, -b, c);
}
 
double
dbl_neg_mul_add_2 (double a, double b, double c)
{
  return __builtin_fma (a, -b, c);
}
 
float
flt_neg_mul_sub (float a, float b, float c)
{
  return __builtin_fmaf (-a, b, -c);
}
 
double
dbl_neg_mul_sub (double a, double b, double c)
{
  return __builtin_fma (-a, b, -c);
}
 
/* { dg-final { scan-assembler-times "vfmaddss" 1 } } */
/* { dg-final { scan-assembler-times "vfmaddsd" 1 } } */
/* { dg-final { scan-assembler-times "vfmsubss" 1 } } */
/* { dg-final { scan-assembler-times "vfmsubsd" 1 } } */
/* { dg-final { scan-assembler-times "vfnmaddss" 2 } } */
/* { dg-final { scan-assembler-times "vfnmaddsd" 2 } } */
/* { dg-final { scan-assembler-times "vfnmsubss" 1 } } */
/* { dg-final { scan-assembler-times "vfnmsubsd" 1 } } */