092a819e94
Issue deprecation warning for these directives. Lowering currently supports parallel master, for all other combined or composite directives involving master, issue TODO errors. Note: The first commit changes the formatting and generalizes the deprecation message emission for reuse in the second commit. I can pull it out into a separate commit if required.
15 lines
460 B
Fortran
15 lines
460 B
Fortran
! This test checks lowering of OpenMP parallel master taskloop Directive.
|
|
|
|
! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
|
|
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
|
|
|
|
subroutine test_parallel_master_taskloop
|
|
integer :: i, j = 1
|
|
!CHECK: not yet implemented: Taskloop construct
|
|
!$omp parallel master taskloop
|
|
do i=1,10
|
|
j = j + 1
|
|
end do
|
|
!$omp end parallel master taskloop
|
|
end subroutine
|