Subversion Repositories openrisc

/* { dg-do compile } */
/* { dg-skip-if "128-bit long double" { *-*-hpux* } { "*" } { "" } } */
/* { dg-options "-O" } */
/* Don't confuse the fma insn with the fma in the filename.  */
/* { dg-final { scan-assembler-times "fma\[ 	\]" 2 } } */
/* { dg-final { scan-assembler-times "fms" 1 } } */
/* { dg-final { scan-assembler-times "fnma" 2 } } */
 
#ifndef __FP_FAST_FMAL
# error "__FP_FAST_FMAL should be defined"
#endif
 
typedef long double LD;
 
LD L0(LD x, LD y, LD z) { return __builtin_fmal(x,y,z); }
LD L1(LD x, LD y, LD z) { return __builtin_fmal(x,y,-z); }
LD L2(LD x, LD y, LD z) { return __builtin_fmal(-x,y,z); }
LD L3(LD x, LD y, LD z) { return __builtin_fmal(x,-y,z); }
LD L4(LD x, LD y, LD z) { return __builtin_fmal(-x,-y,z); }