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