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