gcc/testsuite/gfortran.dg/pr84117.f90

   1 ! PR tree-optimization/84117
   2 ! { dg-do compile }
   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