2 ! { dg-options "-O2 -fbounds-check -ffast-math" }
3 FUNCTION pw_integral_aa ( cc
) RESULT ( integral_value
)
4 COMPLEX(KIND
=8), DIMENSION(:), POINTER :: cc
5 integral_value
= accurate_sum ( CONJG ( cc (:) ) * cc (:) )
6 END FUNCTION pw_integral_aa
