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
19end
20