flang/test/Semantics/omp-resolve02.f90

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