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