ae1623b306
This patch adds parser nodes for each indivudual section in sections construct. This should help with the translation to FIR. `!$omp section` was not recognized as a construct and hence needed special handling. `OpenMPSectionsConstruct` contains a list of `OpenMPConstruct`. Each such `OpenMPConstruct` wraps an `OpenMPSectionConstruct` (section, not sections). An `OpenMPSectionConstruct` is a wrapper around a `Block`. Reviewed By: kiranchandramohan, peixin Differential Revision: https://reviews.llvm.org/D121680
122 lines
3.8 KiB
Fortran
122 lines
3.8 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
|
|
! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
|
|
|
|
subroutine openmp_sections(x, y)
|
|
|
|
integer, intent(inout)::x, y
|
|
|
|
!==============================================================================
|
|
! empty construct
|
|
!==============================================================================
|
|
!CHECK: !$omp sections
|
|
!$omp sections
|
|
!CHECK: !$omp section
|
|
!CHECK: !$omp end sections
|
|
!$omp end sections
|
|
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionsConstruct
|
|
!PARSE-TREE: OmpBeginSectionsDirective
|
|
!PARSE-TREE-NOT: ExecutionPartConstruct
|
|
!PARSE-TREE: OmpEndSectionsDirective
|
|
|
|
!==============================================================================
|
|
! single section, without `!$omp section`
|
|
!==============================================================================
|
|
!CHECK: !$omp sections
|
|
!$omp sections
|
|
!CHECK: !$omp section
|
|
!CHECK: CALL
|
|
call F1()
|
|
!CHECK: !$omp end sections
|
|
!$omp end sections
|
|
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionsConstruct
|
|
!PARSE-TREE: OmpBeginSectionsDirective
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE-NOT: ExecutionPartConstruct
|
|
!PARSE-TREE: OmpEndSectionsDirective
|
|
|
|
!==============================================================================
|
|
! single section with `!$omp section`
|
|
!==============================================================================
|
|
!CHECK: !$omp sections
|
|
!$omp sections
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F1
|
|
call F1
|
|
!CHECK: !$omp end sections
|
|
!$omp end sections
|
|
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionsConstruct
|
|
!PARSE-TREE: OmpBeginSectionsDirective
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE-NOT: ExecutionPartConstruct
|
|
!PARSE-TREE: OmpEndSectionsDirective
|
|
|
|
!==============================================================================
|
|
! multiple sections
|
|
!==============================================================================
|
|
!CHECK: !$omp sections
|
|
!$omp sections
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F1
|
|
call F1
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F2
|
|
call F2
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F3
|
|
call F3
|
|
!CHECK: !$omp end sections
|
|
!$omp end sections
|
|
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionsConstruct
|
|
!PARSE-TREE: OmpBeginSectionsDirective
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE-NOT: ExecutionPartConstruct
|
|
!PARSE-TREE: OmpEndSectionsDirective
|
|
|
|
!==============================================================================
|
|
! multiple sections with clauses
|
|
!==============================================================================
|
|
!CHECK: !$omp sections PRIVATE(x) FIRSTPRIVATE(y)
|
|
!$omp sections PRIVATE(x) FIRSTPRIVATE(y)
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F1
|
|
call F1
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F2
|
|
call F2
|
|
!CHECK: !$omp section
|
|
!$omp section
|
|
!CHECK: CALL F3
|
|
call F3
|
|
!CHECK: !$omp end sections NOWAIT
|
|
!$omp end sections NOWAIT
|
|
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionsConstruct
|
|
!PARSE-TREE: OmpBeginSectionsDirective
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE: OpenMPConstruct -> OpenMPSectionConstruct -> Block
|
|
!PARSE-TREE: CallStmt
|
|
!PARSE-TREE-NOT: ExecutionPartConstruct
|
|
!PARSE-TREE: OmpEndSectionsDirective
|
|
|
|
END subroutine openmp_sections
|