1! { dg-do compile }
2! { dg-additional-options "-Wuninitialized" }
3
4subroutine test
5  INTEGER :: i
6
7  !$acc parallel
8  i = 1
9  !$acc end parallel
10end subroutine test
11
12subroutine test2
13  INTEGER :: i
14
15  !$acc parallel firstprivate (i) ! { dg-warning "is used uninitialized" }
16  i = 1
17  !$acc end parallel
18end subroutine test2
19