19 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! Test the effect to name resolution from illegal clause4 5 !a = 1.06 b = 27 !$omp parallel private(a) shared(b)8 a = 3.9 b = 410 !ERROR: LASTPRIVATE clause is not allowed on the PARALLEL directive11 !ERROR: 'a' appears in more than one data-sharing clause on the same OpenMP directive12 !$omp parallel private(a) shared(b) lastprivate(a)13 a = 5.14 b = 615 !$omp end parallel16 !$omp end parallel17 print *,a, b18end19