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.
17 lines
438 B
Fortran
17 lines
438 B
Fortran
! This test checks lowering of the parallel master combined construct.
|
|
|
|
! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
! RUN: %flang_fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: func @_QPparallel_master
|
|
subroutine parallel_master(x)
|
|
integer :: x
|
|
!CHECK: omp.parallel {
|
|
!CHECK: omp.master {
|
|
!$omp parallel master
|
|
x = 1
|
|
!$omp end parallel master
|
|
!CHECK: }
|
|
!CHECK: }
|
|
end subroutine parallel_master
|