llvm/flang/test/Semantics/OpenACC/acc-resolve02.f90

! RUN: %python %S/../test_errors.py %s %flang -fopenacc

subroutine compute()
  integer :: a(3), c, i

  a = 1
  !ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive
  !$acc parallel firstprivate(c) private(c)
  do i = 1, 3
    a(i) = c
  end do
  !$acc end parallel
end subroutine compute

program mm
  call compute()
end