1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
!RUN: %flang_fc1 -emit-fir -fopenmp %s -o - | FileCheck %s --check-prefixes="FIRDialect,OMPDialect"
!RUN: %flang_fc1 -emit-fir -fopenmp %s -o - | fir-opt --cfg-conversion | fir-opt --fir-to-llvm-ir | FileCheck %s --check-prefixes="OMPDialect,LLVMDialect"
!===============================================================================
! Parallel sections construct
!===============================================================================
!FIRDialect: func @_QPomp_parallel_sections
subroutine omp_parallel_sections(x, y)
integer, intent(inout) :: x, y
!OMPDialect: omp.parallel {
!OMPDialect: omp.sections {
!$omp parallel sections
!OMPDialect: omp.section {
!$omp section
!FIRDialect: fir.load
!FIRDialect: arith.addi
!FIRDialect: fir.store
x = x + 12
!OMPDialect: omp.terminator
!OMPDialect: omp.section {
!$omp section
!FIRDialect: fir.load
!FIRDialect: arith.subi
!FIRDialect: fir.store
y = y - 5
!OMPDialect: omp.terminator
!OMPDialect: omp.terminator
!OMPDialect: omp.terminator
!$omp end parallel sections
end subroutine omp_parallel_sections
!===============================================================================
! Parallel sections construct with allocate clause
!===============================================================================
!FIRDialect: func @_QPomp_parallel_sections
subroutine omp_parallel_sections_allocate(x, y)
use omp_lib
integer, intent(inout) :: x, y
!FIRDialect: %[[allocator:.*]] = arith.constant 1 : i32
!LLVMDialect: %[[allocator:.*]] = llvm.mlir.constant(1 : i32) : i32
!OMPDialect: omp.parallel {
!OMPDialect: omp.sections allocate(
!FIRDialect: %[[allocator]] : i32 -> %{{.*}} : !fir.ref<i32>) {
!LLVMDialect: %[[allocator]] : i32 -> %{{.*}} : !llvm.ptr<i32>) {
!$omp parallel sections allocate(omp_high_bw_mem_alloc: x)
!OMPDialect: omp.section {
!$omp section
x = x + 12
!OMPDialect: omp.terminator
!OMPDialect: omp.section {
!$omp section
y = y + 5
!OMPDialect: omp.terminator
!OMPDialect: omp.terminator
!OMPDialect: omp.terminator
!$omp end parallel sections
end subroutine omp_parallel_sections_allocate
|
