| ! { 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 |
