File tree Expand file tree Collapse file tree 2 files changed +3
-10
lines changed Expand file tree Collapse file tree 2 files changed +3
-10
lines changed Original file line number Diff line number Diff line change @@ -2885,12 +2885,6 @@ void OmpStructureChecker::Leave(const parser::OmpClauseList &) {
2885
2885
// clause
2886
2886
CheckMultListItems ();
2887
2887
2888
- // 2.7.3 Single Construct Restriction
2889
- if (GetContext ().directive == llvm::omp::Directive::OMPD_end_single) {
2890
- CheckNotAllowedIfClause (
2891
- llvm::omp::Clause::OMPC_copyprivate, {llvm::omp::Clause::OMPC_nowait});
2892
- }
2893
-
2894
2888
auto testThreadprivateVarErr = [&](Symbol sym, parser::Name name,
2895
2889
llvmOmpClause clauseTy) {
2896
2890
if (sym.test (Symbol::Flag::OmpThreadprivate))
Original file line number Diff line number Diff line change 333
333
! ERROR: NOWAIT clause must not be used with COPYPRIVATE clause on the SINGLE directive
334
334
! $omp single private(a) lastprivate(c) nowait
335
335
a = 3.14
336
- ! ERROR: Clause NOWAIT is not allowed if clause COPYPRIVATE appears on the END SINGLE directive
337
336
! ERROR: COPYPRIVATE variable 'a' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
338
337
! ERROR: At most one NOWAIT clause can appear on the SINGLE directive
339
338
! ERROR: At most one NOWAIT clause can appear on the SINGLE directive
428
427
enddo
429
428
enddo
430
429
! omp end do nowait
431
- ! $omp end parallel
430
+ ! $omp end parallel
432
431
433
432
! 2.11.4 parallel-do-simd-clause -> parallel-clause |
434
433
! do-simd-clause
586
585
allc = 3.14
587
586
enddo
588
587
589
- ! $omp target enter data map(alloc:A) device(0)
590
- ! $omp target exit data map(delete:A) device(0)
588
+ ! $omp target enter data map(alloc:A) device(0)
589
+ ! $omp target exit data map(delete:A) device(0)
591
590
592
591
end program
You can’t perform that action at this time.
0 commit comments