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