1/* PR target/17245 */
2/* Origin: <aaronw@net.com> */
3/* Testcase by Christian Ehrhardt <ehrhardt@mathematik.uni-ulm.de> */
4
5/* { dg-do compile } */
6/* { dg-options "-O -mcpu=v9" } */
7
8/* This used to fail on 32-bit Ultrasparc because reload was emitting
9   a move insn that doesn't satisfy its constraints.  */
10
11int n;
12double range ;
13double bin ;
14double wmean;
15
16double f ()
17{
18  int i ;
19  long double W = 0 ;
20  for ( i = 0 ; i < n ; i ++) {
21    double xi = range;
22    double wi = bin;
23    W += wi ;
24    wmean += ( xi - wmean) * ( wi / W);
25  }
26}
27