blob: 0bbf779ecde8f7aaa8094d2755ab470871ce496e [file] [log] [blame]
! RUN: %python %S/ %s %flang -fopenmp
! Test the effect to name resolution from illegal clause
!a = 1.0
b = 2
!$omp parallel private(a) shared(b)
a = 3.
b = 4
!ERROR: LASTPRIVATE clause is not allowed on the PARALLEL directive
!ERROR: 'a' appears in more than one data-sharing clause on the same OpenMP directive
!$omp parallel private(a) shared(b) lastprivate(a)
a = 5.
b = 6
!$omp end parallel
!$omp end parallel
print *,a, b