1! { dg-do run }
2! { dg-additional-sources pr96628-part2.f90 }
3! { dg-additional-options "-ftree-slp-vectorize" }
4!
5! This file is compiled first
6module m2
7  real*8 :: mysum
8  !$acc declare device_resident(mysum)
9contains
10    SUBROUTINE one(t)
11      !$acc routine
12      REAL*8,  INTENT(IN)    :: t(:)
13      mysum = sum(t)
14    END SUBROUTINE one
15    SUBROUTINE two(t)
16      !$acc routine seq
17      REAL*8, INTENT(INOUT) :: t(:)
18      t = (100.0_8*t)/sum
19    END SUBROUTINE two
20end module m2
21