| ! PR tree-optimization/84117 | |
| ! { dg-do compile } | |
| ! { dg-options "-O3 -ftrapv" } | |
| FUNCTION pw_integral_aa ( cc ) RESULT ( integral_value ) | |
| COMPLEX(KIND=8), DIMENSION(:), POINTER :: cc | |
| integral_value = accurate_sum ( CONJG ( cc (:) ) * cc (:) ) | |
| END FUNCTION pw_integral_aa |