20 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! Ensure that checks on more than one data-sharing clause do not depend upon3! the clause order4 5PROGRAM main6 INTEGER:: I, N1, N27 8 !ERROR: 'n1' appears in more than one data-sharing clause on the same OpenMP directive9 !$OMP PARALLEL DO PRIVATE(N1) SHARED(N1)10 DO I=1, 411 ENDDO12 !$OMP END PARALLEL DO13 14 !ERROR: 'n2' appears in more than one data-sharing clause on the same OpenMP directive15 !$OMP PARALLEL DO SHARED(N2) PRIVATE(N2)16 DO I=1, 417 ENDDO18 !$OMP END PARALLEL DO19END PROGRAM20