1 ! PR tree-optimization/84117
3 ! { dg-options "-O3 -ftrapv" }
4 FUNCTION pw_integral_aa ( cc
) RESULT ( integral_value
)
5 COMPLEX(KIND
=8), DIMENSION(:), POINTER :: cc
6 integral_value
= accurate_sum ( CONJG ( cc (:) ) * cc (:) )
7 END FUNCTION pw_integral_aa