xref: /llvm-project/flang/test/Lower/OpenMP/requires-common.f90 (revision 09b30f409069d296dad467433c60e7c8d431626b)
1! RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s
2! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-is-target-device %s -o - | FileCheck %s
3! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
4! RUN: bbc -fopenmp -fopenmp-is-target-device -emit-hlfir %s -o - | FileCheck %s
5
6! This test checks the lowering of requires into MLIR
7
8!CHECK:      module attributes {
9!CHECK-SAME: omp.requires = #omp<clause_requires unified_shared_memory>
10block data init
11  !$omp requires unified_shared_memory
12  integer :: x
13  common /block/ x
14  data x / 10 /
15end
16
17subroutine f
18  !$omp declare target
19end subroutine f
20