1! { dg-do compile } 2! { dg-require-effective-target vect_float } 3! { dg-require-effective-target vect_intfloat_cvt } 4! { dg-additional-options "-ffast-math" } 5 6program calcpi 7 8 implicit none 9 real(kind=4):: h,x,sum,pi 10 integer:: n,i 11 real(kind=4):: f 12 13 f(x) = 4.0/(1.0+x**2) 14 15 n = 2100000000 16 17 h= 1.0 / n 18 sum = 0.0 19 DO i=1, n 20 x = h * (i-0.5) 21 sum = sum + f(x) 22 END DO 23 pi = h * sum 24 write(*,*) 'Pi=',pi 25 26end program calcpi 27 28! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } } 29