brintos

brintos / llvm-project-archived public Read only

0
0
Text · 1.1 KiB · 52a43c2 Raw
55 lines · plain
1!RUN: %python %S/../test_modfile.py %s %flang_fc1 -fopenmp -fopenmp-version=602 3module req4contains5 6! The requirements from the subprograms should be added to the module.7subroutine f008  !$omp requires reverse_offload9end10 11subroutine f0112  !$omp requires atomic_default_mem_order(seq_cst)13end14end module15 16module user17! The requirements from module req should be propagated to this module.18use req19  ! This has no effect, and should not be emitted.20  !$omp requires unified_shared_memory(.false.)21end module22 23module fold24  integer, parameter :: x = 1025  integer, parameter :: y = 3326  ! Make sure we can fold this expression to "true".27  !$omp requires dynamic_allocators(x < y)28end module29 30!Expect: req.mod31!module req32!!$omp requires atomic_default_mem_order(seq_cst)33!!$omp requires reverse_offload34!contains35!subroutine f00()36!end37!subroutine f01()38!end39!end40 41!Expect: user.mod42!module user43!use req,only:f0044!use req,only:f0145!!$omp requires atomic_default_mem_order(seq_cst)46!!$omp requires reverse_offload47!end48 49!Expect: fold.mod50!module fold51!integer(4),parameter::x=10_452!integer(4),parameter::y=33_453!!$omp requires dynamic_allocators54!end55