1! RUN: %python %S/../test_errors.py %s %flang -fopenacc 2 3subroutine compute() 4 integer :: a(3), c, i 5 6 a = 1 7 !ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive 8 !$acc parallel firstprivate(c) private(c) 9 do i = 1, 3 10 a(i) = c 11 end do 12 !$acc end parallel 13end subroutine compute 14 15program mm 16 call compute() 17end 18