1! { dg-do compile }
2
3subroutine foo (ia1)
4integer :: i1, i2
5
6!$acc parallel reduction (+:i1) private(i1) ! { dg-error "invalid private reduction on .i1." }
7!$acc end parallel
8!$acc parallel reduction (+:i2) firstprivate(i2) ! { dg-error "invalid private reduction on .i2." }
9!$acc end parallel
10end subroutine foo
11