1! RUN: %python %S/../test_modfile.py %s %flang_fc1 -fopenmp 2! Check correct modfile generation for OpenMP threadprivate directive. 3 4module m 5 implicit none 6 type :: my_type(kind_param, len_param) 7 integer, KIND :: kind_param 8 integer, LEN :: len_param 9 integer :: t_i 10 integer :: t_arr(10) 11 end type 12 type(my_type(kind_param=2, len_param=4)) :: t 13 real, dimension(3) :: thrtest 14 real :: x 15 common /blk/ x 16 17 !$omp threadprivate(thrtest, t, /blk/) 18end 19 20!Expect: m.mod 21!module m 22!type::my_type(kind_param,len_param) 23!integer(4),kind::kind_param 24!integer(4),len::len_param 25!integer(4)::t_i 26!integer(4)::t_arr(1_8:10_8) 27!end type 28!type(my_type(kind_param=2_4,len_param=4_4))::t 29!!$omp threadprivate(t) 30!real(4)::thrtest(1_8:3_8) 31!!$omp threadprivate(thrtest) 32!real(4)::x 33!!$omp threadprivate(x) 34!common/blk/x 35!end 36