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