Subversion Repositories openrisc

/* { dg-options "-O1 -funsafe-math-optimizations -ftrapping-math -fdump-tree-recip -fdump-tree-optimized" } */

/* { dg-do compile } */

/* { dg-warning "-fassociative-math disabled" "" { target *-*-* } 1 } */

/* Test the reciprocal optimizations together with trapping math.  */

extern int f2();

double f1(double y, double z, double w, double j, double k)

{

  double b, c, d, e, f, g;

  if (f2 ())

    /* inserts one division here */

    b = 1 / y, c = z / y, d = j / y;

  else

    /* one division here */

    b = 3 / y, c = w / y, d = k / y;

  /* and one here, that should be removed afterwards but is not right now */

  e = b / y;

  f = c / y;

  g = d / y;

  return e + f + g;

}

/* { dg-final { scan-tree-dump-times " / " 3 "recip" } } */

/* { dg-final { scan-tree-dump-times " / " 2 "optimized" { xfail *-*-* } } } */

/* { dg-final { cleanup-tree-dump "recip" } } */

/* { dg-final { cleanup-tree-dump "optimized" } } */