| 12345678910111213141516171819202122232425 |
- ! { dg-do run }
- ! { dg-additional-sources pr96628-part2.f90 }
- ! { dg-additional-options "-ftree-slp-vectorize" }
- !
- ! This file is compiled first
- ! { dg-additional-options -Wuninitialized }
- module m2
- real*8 :: mysum
- !$acc declare device_resident(mysum)
- contains
- SUBROUTINE one(t)
- !$acc routine
- REAL*8, INTENT(IN) :: t(:)
- mysum = sum(t)
- END SUBROUTINE one
- SUBROUTINE two(t)
- !$acc routine seq
- REAL*8, INTENT(INOUT) :: t(:)
- t = (100.0_8*t)/sum
- ! { dg-warning {'sum' is used uninitialized} {} { target *-*-* } .-1 }
- ! { dg-note {'sum' was declared here} {} { target *-*-* } .-2 }
- END SUBROUTINE two
- end module m2
|
