flang/test/Semantics/OpenMP/clause-order.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! Ensure that checks on more than one data-sharing clause do not depend upon
   3 ! the clause order
   4
   5 PROGRAM main
   6   INTEGER:: I, N1, N2
   7
   8   !ERROR: 'n1' appears in more than one data-sharing clause on the same OpenMP directive
   9   !$OMP PARALLEL DO PRIVATE(N1) SHARED(N1)
  10   DO I=1, 4
  11   ENDDO
  12   !$OMP END PARALLEL DO
  13
  14   !ERROR: 'n2' appears in more than one data-sharing clause on the same OpenMP directive
  15   !$OMP PARALLEL DO SHARED(N2) PRIVATE(N2)
  16   DO I=1, 4
  17   ENDDO
  18   !$OMP END PARALLEL DO
  19 END PROGRAM