flang/test/Semantics/OpenMP/omp-resolve02.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! Test the effect to name resolution from illegal clause
   4
   5   !a = 1.0
   6   b = 2
   7   !$omp parallel private(a) shared(b)
   8   a = 3.
   9   b = 4
  10   !ERROR: LASTPRIVATE clause is not allowed on the PARALLEL directive
  11   !ERROR: 'a' appears in more than one data-sharing clause on the same OpenMP directive
  12   !$omp parallel private(a) shared(b) lastprivate(a)
  13   a = 5.
  14   b = 6
  15   !$omp end parallel
  16   !$omp end parallel
  17   print *,a, b
  18 end