Changeset View
Changeset View
Standalone View
Standalone View
flang/test/Semantics/omp-clause-validity01.f90
| Show First 20 Lines • Show All 44 Lines • ▼ Show 20 Lines | ! proc-bind-clause | ||||
| !$omp parallel collapse(2) | !$omp parallel collapse(2) | ||||
| do i = 1, N | do i = 1, N | ||||
| do j = 1, N | do j = 1, N | ||||
| a = 3.14 | a = 3.14 | ||||
| enddo | enddo | ||||
| enddo | enddo | ||||
| !$omp end parallel | !$omp end parallel | ||||
| !ERROR: The parameter of the COLLAPSE clause must be a constant positive integer expression | |||||
| !$omp do collapse(-1) | |||||
| do i = 1, N | |||||
| do j = 1, N | |||||
| a = 3.14 | |||||
| enddo | |||||
| enddo | |||||
| !$omp end do | |||||
| a = 1.0 | a = 1.0 | ||||
| !$omp parallel firstprivate(a) | !$omp parallel firstprivate(a) | ||||
| do i = 1, N | do i = 1, N | ||||
| a = 3.14 | a = 3.14 | ||||
| enddo | enddo | ||||
| !ERROR: NUM_THREADS clause is not allowed on the END PARALLEL directive | !ERROR: NUM_THREADS clause is not allowed on the END PARALLEL directive | ||||
| !$omp end parallel num_threads(4) | !$omp end parallel num_threads(4) | ||||
| ▲ Show 20 Lines • Show All 410 Lines • Show Last 20 Lines | |||||