! { dg-do run }
! { dg-additional-sources pr96628-part2.f90 }
! { dg-additional-options "-ftree-slp-vectorize" }
!
! This file is compiled first
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
    END SUBROUTINE two
end module m2