| /* PR target/17245 */ | |
| /* Origin: <aaronw@net.com> */ | |
| /* Testcase by Christian Ehrhardt <ehrhardt@mathematik.uni-ulm.de> */ | |
| /* { dg-do compile } */ | |
| /* { dg-options "-O -mcpu=v9" } */ | |
| /* This used to fail on 32-bit Ultrasparc because reload was emitting | |
| a move insn that doesn't satisfy its constraints. */ | |
| int n; | |
| double range ; | |
| double bin ; | |
| double wmean; | |
| double f () | |
| { | |
| int i ; | |
| long double W = 0 ; | |
| for ( i = 0 ; i < n ; i ++) { | |
| double xi = range; | |
| double wi = bin; | |
| W += wi ; | |
| wmean += ( xi - wmean) * ( wi / W); | |
| } | |
| } |