xref: /llvm-project/flang/test/Examples/omp-sections.f90 (revision ae1623b30645fd9a3ded019114678d1c34af1621)
1! REQUIRES: plugins, examples, shell
2
3! RUN: %flang_fc1 -load %llvmshlibdir/flangOmpReport.so -plugin flang-omp-report -fopenmp %s -o - | FileCheck %s
4
5subroutine omp_sections()
6  integer :: x
7  !$omp sections private(x)
8    !$omp section
9    call f1()
10    !$omp section
11    call f2()
12  !$omp end sections nowait
13end subroutine omp_sections
14
15!CHECK: - file:            {{.*}}
16!CHECK:   line:            9
17!CHECK:   construct:       section
18!CHECK:   clauses:         []
19!CHECK: - file:            {{.*}}
20!CHECK:   line:            11
21!CHECK:   construct:       section
22!CHECK:   clauses:         []
23!CHECK: - file:            {{.*}}
24!CHECK:   line:            7
25!CHECK:   construct:       sections
26!CHECK:   clauses:
27!CHECK:     - clause:          nowait
28!CHECK:       details:         ''
29!CHECK:     - clause:          private
30!CHECK:       details:         x
31