36 lines · plain
1! RUN: %python %S/../test_modfile.py %s %flang_fc1 -fopenmp2! Check correct modfile generation for OpenMP threadprivate directive.3 4module m5 implicit none6 type :: my_type(kind_param, len_param)7 integer, KIND :: kind_param8 integer, LEN :: len_param9 integer :: t_i10 integer :: t_arr(10)11 end type12 type(my_type(kind_param=2, len_param=4)) :: t13 real, dimension(3) :: thrtest14 real :: x15 common /blk/ x16 17 !$omp threadprivate(thrtest, t, /blk/)18end19 20!Expect: m.mod21!module m22!type::my_type(kind_param,len_param)23!integer(4),kind::kind_param24!integer(4),len::len_param25!integer(4)::t_i26!integer(4)::t_arr(1_8:10_8)27!end type28!type(my_type(kind_param=2_4,len_param=4_4))::t29!!$omp threadprivate(t)30!real(4)::thrtest(1_8:3_8)31!!$omp threadprivate(thrtest)32!real(4)::x33!!$omp threadprivate(x)34!common/blk/x35!end36