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