1! { dg-do compile } 2! { dg-additional-options "-Wuninitialized" } 3 4subroutine foo 5 integer :: i 6 7 !$acc kernels 8 i = 1 9 !$acc end kernels 10 11end subroutine foo 12 13subroutine foo2 14 integer :: i 15 16 !$acc kernels copy (i) 17 i = 1 18 !$acc end kernels 19 20end subroutine foo2 21 22subroutine foo3 23 integer :: i 24 25 !$acc kernels copyin (i) 26 i = 1 27 !$acc end kernels 28 29end subroutine foo3 30