1  extern double fma (double, double, double);
       2  extern float fmaf (float, float, float);
       3  
       4  float
       5  vfma32 (float x, float y, float z)
       6  {
       7    return fmaf (x, y, z);
       8  }
       9  
      10  float
      11  vfms32 (float x, float y, float z)
      12  {
      13    return fmaf (-x, y, z);
      14  }
      15  
      16  float
      17  vfnms32 (float x, float y, float z)
      18  {
      19    return fmaf (x, y, -z);
      20  }
      21  
      22  float
      23  vfnma32 (float x, float y, float z)
      24  {
      25    return fmaf (-x, y, -z);
      26  }
      27  
      28  double
      29  vfma64 (double x, double y, double z)
      30  {
      31    return fma (x, y, z);
      32  }
      33  
      34  double
      35  vfms64 (double x, double y, double z)
      36  {
      37    return fma (-x, y, z);
      38  }
      39  
      40  double
      41  vfnms64 (double x, double y, double z)
      42  {
      43    return fma (x, y, -z);
      44  }
      45  
      46  double
      47  vfnma64 (double x, double y, double z)
      48  {
      49    return fma (-x, y, -z);
      50  }