6984922905
The OpenMPSectionConstruct corresponds to the `!$omp section` directive, but there is nothing in the AST node that stores the directive information. Even though the only possibility (at the moment) is "section" without any clauses, for improved generality it is helpful to have that information anyway.
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: 8
|
|
!CHECK: construct: section
|
|
!CHECK: clauses: []
|
|
!CHECK: - file: {{.*}}
|
|
!CHECK: line: 10
|
|
!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
|