| ! Cross check that it is accepted without nowait |
| subroutine bar() |
| implicit none |
| integer :: i, a(5) |
| !$omp atomic write |
| i = 5 |
| !$omp end atomic |
| |
| !$omp critical |
| !$omp end critical |
| |
| !$omp distribute |
| do i = 1, 5 |
| end do |
| !$omp end distribute |
| |
| !$omp distribute parallel do |
| do i = 1, 5 |
| end do |
| !$omp end distribute parallel do |
| |
| !$omp distribute parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end distribute parallel do simd |
| |
| !$omp distribute simd |
| do i = 1, 5 |
| end do |
| !$omp end distribute simd |
| |
| !$omp masked |
| !$omp end masked |
| |
| !$omp masked taskloop |
| do i = 1, 5 |
| end do |
| !$omp end masked taskloop |
| |
| !$omp masked taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end masked taskloop simd |
| |
| !$omp master |
| !$omp end master |
| |
| !$omp master taskloop |
| do i = 1, 5 |
| end do |
| !$omp end master taskloop |
| |
| !$omp master taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end master taskloop simd |
| |
| !$omp ordered |
| !$omp end ordered |
| |
| !$omp parallel |
| !$omp end parallel |
| |
| !$omp parallel workshare |
| a(:) = 5 |
| !$omp end parallel workshare |
| |
| !$omp parallel do |
| do i = 1, 5 |
| end do |
| !$omp end parallel do |
| |
| !$omp parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel do simd |
| |
| !$omp parallel sections |
| !$omp section |
| block; end block |
| !$omp end parallel sections |
| |
| !$omp parallel masked |
| !$omp end parallel masked |
| |
| !$omp parallel masked taskloop |
| do i = 1, 5 |
| end do |
| !$omp end parallel masked taskloop |
| |
| !$omp parallel masked taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel masked taskloop simd |
| |
| !$omp parallel master |
| !$omp end parallel master |
| |
| !$omp parallel master taskloop |
| do i = 1, 5 |
| end do |
| !$omp end parallel master taskloop |
| |
| !$omp parallel master taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel master taskloop simd |
| |
| !$omp simd |
| do i = 1, 5 |
| end do |
| !$omp end simd |
| |
| !$omp task |
| !$omp end task |
| |
| !$omp taskgroup |
| !$omp end taskgroup |
| |
| !$omp taskloop |
| do i = 1, 5 |
| end do |
| !$omp end taskloop |
| |
| !$omp taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end taskloop simd |
| |
| !$omp teams |
| !$omp end teams |
| |
| !$omp teams distribute |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute |
| |
| !$omp teams distribute parallel do |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute parallel do |
| |
| !$omp teams distribute parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute parallel do simd |
| |
| !$omp teams distribute simd |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute simd |
| |
| !$omp target data map(tofrom:i) |
| !$omp end target data |
| |
| end |
| |
| ! invalid nowait |
| |
| subroutine foo |
| implicit none |
| integer :: i, a(5) |
| !$omp atomic write |
| i = 5 |
| !$omp end atomic nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp critical |
| !$omp end critical nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp distribute |
| do i = 1, 5 |
| end do |
| !$omp end distribute nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp distribute parallel do |
| do i = 1, 5 |
| end do |
| !$omp end distribute parallel do nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp distribute parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end distribute parallel do simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel sections |
| !$omp section |
| block; end block |
| !$omp end parallel sections nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp distribute simd |
| do i = 1, 5 |
| end do |
| !$omp end distribute simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp masked |
| !$omp end masked nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp masked taskloop |
| do i = 1, 5 |
| end do |
| !$omp end masked taskloop nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp masked taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end masked taskloop simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp master |
| !$omp end master nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp master taskloop |
| do i = 1, 5 |
| end do |
| !$omp end master taskloop nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp master taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end master taskloop simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp ordered |
| !$omp end ordered nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel |
| !$omp end parallel nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel workshare |
| a(:) = 5 |
| !$omp end parallel workshare nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel do |
| do i = 1, 5 |
| end do |
| !$omp end parallel do nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel do simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel masked |
| !$omp end parallel masked nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel masked taskloop |
| do i = 1, 5 |
| end do |
| !$omp end parallel masked taskloop nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel masked taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel masked taskloop simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel master |
| !$omp end parallel master nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel master taskloop |
| do i = 1, 5 |
| end do |
| !$omp end parallel master taskloop nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp parallel master taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end parallel master taskloop simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp simd |
| do i = 1, 5 |
| end do |
| !$omp end simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp task |
| !$omp end task nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp taskgroup |
| !$omp end taskgroup nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp taskloop |
| do i = 1, 5 |
| end do |
| !$omp end taskloop nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp taskloop simd |
| do i = 1, 5 |
| end do |
| !$omp end taskloop simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp teams |
| !$omp end teams nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp teams distribute |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp teams distribute parallel do |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute parallel do nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp teams distribute parallel do simd |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute parallel do simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp teams distribute simd |
| do i = 1, 5 |
| end do |
| !$omp end teams distribute simd nowait ! { dg-error "Unexpected junk" } |
| |
| !$omp target data map(tofrom:i) |
| !$omp end target data nowait ! { dg-error "Unexpected junk" } |
| |
| end ! { dg-error "Unexpected END statement" } |
| ! { dg-prune-output "Unexpected end of file" } |