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
31 lines
861 B
Fortran
31 lines
861 B
Fortran
! REQUIRES: plugins, examples, shell
|
|
|
|
! RUN: %flang_fc1 -load %llvmshlibdir/flangOmpReport.so -plugin flang-omp-report -fopenmp %s -o - | FileCheck %s
|
|
|
|
subroutine omp_sections()
|
|
integer :: x
|
|
!$omp sections private(x)
|
|
!$omp section
|
|
call f1()
|
|
!$omp section
|
|
call f2()
|
|
!$omp end sections nowait
|
|
end subroutine omp_sections
|
|
|
|
!CHECK: - file: {{.*}}
|
|
!CHECK: line: 9
|
|
!CHECK: construct: section
|
|
!CHECK: clauses: []
|
|
!CHECK: - file: {{.*}}
|
|
!CHECK: line: 11
|
|
!CHECK: construct: section
|
|
!CHECK: clauses: []
|
|
!CHECK: - file: {{.*}}
|
|
!CHECK: line: 7
|
|
!CHECK: construct: sections
|
|
!CHECK: clauses:
|
|
!CHECK: - clause: nowait
|
|
!CHECK: details: ''
|
|
!CHECK: - clause: private
|
|
!CHECK: details: x
|