/*
 * Note: tan(x) = sin(x)/cos(x) also, but the final assembly ends up being
 *       twice as long for R600 (maybe for others as well).
 */
_CLC_OVERLOAD _CLC_DEF __CLC_GENTYPE tan(__CLC_GENTYPE x) {
  __CLC_GENTYPE sinx = sin(x);
  return sinx / sqrt( (__CLC_GENTYPE) 1.0 - (sinx*sinx) );
}