! PR fortran/77371
! { dg-do compile }
program p
   integer, allocatable :: n
!$acc parallel reduction (+:n) private(n) ! { dg-error "invalid private reduction" }
!$acc end parallel
end