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  
      11  int n; 
      12  double range ;
      13  double bin ;
      14  double wmean;
      15  
      16  double 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  }