flang/test/Semantics/OpenMP/modfile-threadprivate.f90

   1 ! RUN: %python %S/../test_modfile.py %s %flang_fc1 -fopenmp
   2 ! Check correct modfile generation for OpenMP threadprivate directive.
   3
   4 module 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/)
  18 end
  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