aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.target/mips/pr37362.c
blob: 14e3a75f1bb24bcad8c17a94f201da247e958c60 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/* { dg-do compile } */
/* { dg-options "-march=mips64r2 -mabi=n32" } */

typedef float TFtype __attribute__((mode(TF)));

TFtype
__powitf (TFtype x, int m)
{
  unsigned int n = m < 0 ? -m : m;
  TFtype y = n % 2 ? x : 1;
  while (n >>= 1)
    {
      x = x * x;
      if (n % 2)
	y = y * x;
    }
  return m < 0 ? 1/y : y;
}