18 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2 3subroutine compute()4 integer :: a(3), c, i5 6 a = 17 !ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive8 !$acc parallel firstprivate(c) private(c)9 do i = 1, 310 a(i) = c11 end do12 !$acc end parallel13end subroutine compute14 15program mm16 call compute()17end18