blob: 1853d8c5f39d090efbee9b3eae8317537285cb8b (
plain)
1
2
3
4
5
6
7
|
! 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
|