1*13de7593Sharishch4! This test checks lowering of OpenMP Threadprivate Directive. 2*13de7593Sharishch4! Test for variables with different kind. 3*13de7593Sharishch4 4*13de7593Sharishch4!REQUIRES: shell 5*13de7593Sharishch4!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s 6*13de7593Sharishch4 7*13de7593Sharishch4program test 8*13de7593Sharishch4 integer, save :: i 9*13de7593Sharishch4 integer(kind=1), save :: i1 10*13de7593Sharishch4 integer(kind=2), save :: i2 11*13de7593Sharishch4 integer(kind=4), save :: i4 12*13de7593Sharishch4 integer(kind=8), save :: i8 13*13de7593Sharishch4 integer(kind=16), save :: i16 14*13de7593Sharishch4 15*13de7593Sharishch4!CHECK-DAG: %[[I:.*]] = fir.address_of(@_QFEi) : !fir.ref<i32> 16*13de7593Sharishch4!CHECK-DAG: %[[I_DECL:.*]]:2 = hlfir.declare %[[I]] {uniq_name = "_QFEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 17*13de7593Sharishch4!CHECK-DAG: %[[OMP_I:.*]] = omp.threadprivate %[[I_DECL]]#1 : !fir.ref<i32> -> !fir.ref<i32> 18*13de7593Sharishch4!CHECK-DAG: %[[OMP_I_DECL:.*]]:2 = hlfir.declare %[[OMP_I]] {uniq_name = "_QFEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 19*13de7593Sharishch4!CHECK-DAG: %[[I1:.*]] = fir.address_of(@_QFEi1) : !fir.ref<i8> 20*13de7593Sharishch4!CHECK-DAG: %[[I1_DECL:.*]]:2 = hlfir.declare %[[I1]] {uniq_name = "_QFEi1"} : (!fir.ref<i8>) -> (!fir.ref<i8>, !fir.ref<i8>) 21*13de7593Sharishch4!CHECK-DAG: %[[OMP_I1:.*]] = omp.threadprivate %[[I1_DECL]]#1 : !fir.ref<i8> -> !fir.ref<i8> 22*13de7593Sharishch4!CHECK-DAG: %[[OMP_I1_DECL:.*]]:2 = hlfir.declare %[[OMP_I1]] {uniq_name = "_QFEi1"} : (!fir.ref<i8>) -> (!fir.ref<i8>, !fir.ref<i8>) 23*13de7593Sharishch4!CHECK-DAG: %[[I16:.*]] = fir.address_of(@_QFEi16) : !fir.ref<i128> 24*13de7593Sharishch4!CHECK-DAG: %[[I16_DECL:.*]]:2 = hlfir.declare %[[I16]] {uniq_name = "_QFEi16"} : (!fir.ref<i128>) -> (!fir.ref<i128>, !fir.ref<i128>) 25*13de7593Sharishch4!CHECK-DAG: %[[OMP_I16:.*]] = omp.threadprivate %[[I16_DECL]]#1 : !fir.ref<i128> -> !fir.ref<i128> 26*13de7593Sharishch4!CHECK-DAG: %[[OMP_I16_DECL:.*]]:2 = hlfir.declare %[[OMP_I16]] {uniq_name = "_QFEi16"} : (!fir.ref<i128>) -> (!fir.ref<i128>, !fir.ref<i128>) 27*13de7593Sharishch4!CHECK-DAG: %[[I2:.*]] = fir.address_of(@_QFEi2) : !fir.ref<i16> 28*13de7593Sharishch4!CHECK-DAG: %[[I2_DECL:.*]]:2 = hlfir.declare %[[I2]] {uniq_name = "_QFEi2"} : (!fir.ref<i16>) -> (!fir.ref<i16>, !fir.ref<i16>) 29*13de7593Sharishch4!CHECK-DAG: %[[OMP_I2:.*]] = omp.threadprivate %[[I2_DECL]]#1 : !fir.ref<i16> -> !fir.ref<i16> 30*13de7593Sharishch4!CHECK-DAG: %[[OMP_I2_DECL:.*]]:2 = hlfir.declare %[[OMP_I2]] {uniq_name = "_QFEi2"} : (!fir.ref<i16>) -> (!fir.ref<i16>, !fir.ref<i16>) 31*13de7593Sharishch4!CHECK-DAG: %[[I4:.*]] = fir.address_of(@_QFEi4) : !fir.ref<i32> 32*13de7593Sharishch4!CHECK-DAG: %[[I4_DECL:.*]]:2 = hlfir.declare %[[I4]] {uniq_name = "_QFEi4"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 33*13de7593Sharishch4!CHECK-DAG: %[[OMP_I4:.*]] = omp.threadprivate %[[I4_DECL]]#1 : !fir.ref<i32> -> !fir.ref<i32> 34*13de7593Sharishch4!CHECK-DAG: %[[OMP_I4_DECL:.*]]:2 = hlfir.declare %[[OMP_I4]] {uniq_name = "_QFEi4"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 35*13de7593Sharishch4!CHECK-DAG: %[[I8:.*]] = fir.address_of(@_QFEi8) : !fir.ref<i64> 36*13de7593Sharishch4!CHECK-DAG: %[[I8_DECL:.*]]:2 = hlfir.declare %[[I8]] {uniq_name = "_QFEi8"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) 37*13de7593Sharishch4!CHECK-DAG: %[[OMP_I8:.*]] = omp.threadprivate %[[I8_DECL]]#1 : !fir.ref<i64> -> !fir.ref<i64> 38*13de7593Sharishch4!CHECK-DAG: %[[OMP_I8_DECL:.*]]:2 = hlfir.declare %[[OMP_I8]] {uniq_name = "_QFEi8"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) 39*13de7593Sharishch4 !$omp threadprivate(i, i1, i2, i4, i8, i16) 40*13de7593Sharishch4 41*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I_DECL]]#0 : !fir.ref<i32> 42*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I1_DECL]]#0 : !fir.ref<i8> 43*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I16_DECL]]#0 : !fir.ref<i128> 44*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I2_DECL]]#0 : !fir.ref<i16> 45*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I4_DECL]]#0 : !fir.ref<i32> 46*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I8_DECL]]#0 : !fir.ref<i64> 47*13de7593Sharishch4 print *, i, i1, i2, i4, i8, i16 48*13de7593Sharishch4 49*13de7593Sharishch4 !$omp parallel 50*13de7593Sharishch4!CHECK-DAG: %[[I_PVT:.*]] = omp.threadprivate %[[I_DECL]]#1 : !fir.ref<i32> -> !fir.ref<i32> 51*13de7593Sharishch4!CHECK-DAG: %[[I_PVT_DECL:.*]]:2 = hlfir.declare %[[I_PVT]] {uniq_name = "_QFEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 52*13de7593Sharishch4!CHECK-DAG: %[[I1_PVT:.*]] = omp.threadprivate %[[I1_DECL]]#1 : !fir.ref<i8> -> !fir.ref<i8> 53*13de7593Sharishch4!CHECK-DAG: %[[I1_PVT_DECL:.*]]:2 = hlfir.declare %[[I1_PVT]] {uniq_name = "_QFEi1"} : (!fir.ref<i8>) -> (!fir.ref<i8>, !fir.ref<i8>) 54*13de7593Sharishch4!CHECK-DAG: %[[I2_PVT:.*]] = omp.threadprivate %[[I2_DECL]]#1 : !fir.ref<i16> -> !fir.ref<i16> 55*13de7593Sharishch4!CHECK-DAG: %[[I2_PVT_DECL:.*]]:2 = hlfir.declare %[[I2_PVT]] {uniq_name = "_QFEi2"} : (!fir.ref<i16>) -> (!fir.ref<i16>, !fir.ref<i16>) 56*13de7593Sharishch4!CHECK-DAG: %[[I4_PVT:.*]] = omp.threadprivate %[[I4_DECL]]#1 : !fir.ref<i32> -> !fir.ref<i32> 57*13de7593Sharishch4!CHECK-DAG: %[[I4_PVT_DECL:.*]]:2 = hlfir.declare %[[I4_PVT]] {uniq_name = "_QFEi4"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>) 58*13de7593Sharishch4!CHECK-DAG: %[[I8_PVT:.*]] = omp.threadprivate %[[I8_DECL]]#1 : !fir.ref<i64> -> !fir.ref<i64> 59*13de7593Sharishch4!CHECK-DAG: %[[I8_PVT_DECL:.*]]:2 = hlfir.declare %[[I8_PVT]] {uniq_name = "_QFEi8"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) 60*13de7593Sharishch4!CHECK-DAG: %[[I16_PVT:.*]] = omp.threadprivate %[[I16_DECL]]#1 : !fir.ref<i128> -> !fir.ref<i128> 61*13de7593Sharishch4!CHECK-DAG: %[[I16_PVT_DECL:.*]]:2 = hlfir.declare %[[I16_PVT]] {uniq_name = "_QFEi16"} : (!fir.ref<i128>) -> (!fir.ref<i128>, !fir.ref<i128>) 62*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I_PVT_DECL]]#0 : !fir.ref<i32> 63*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I1_PVT_DECL]]#0 : !fir.ref<i8> 64*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I16_PVT_DECL]]#0 : !fir.ref<i128> 65*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I2_PVT_DECL]]#0 : !fir.ref<i16> 66*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I4_PVT_DECL]]#0 : !fir.ref<i32> 67*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[I8_PVT_DECL]]#0 : !fir.ref<i64> 68*13de7593Sharishch4 print *, i, i1, i2, i4, i8, i16 69*13de7593Sharishch4 !$omp end parallel 70*13de7593Sharishch4 71*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I_DECL]]#0 : !fir.ref<i32> 72*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I1_DECL]]#0 : !fir.ref<i8> 73*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I16_DECL]]#0 : !fir.ref<i128> 74*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I2_DECL]]#0 : !fir.ref<i16> 75*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I4_DECL]]#0 : !fir.ref<i32> 76*13de7593Sharishch4!CHECK-DAG: %{{.*}} = fir.load %[[OMP_I8_DECL]]#0 : !fir.ref<i64> 77*13de7593Sharishch4 print *, i, i1, i2, i4, i8, i16 78*13de7593Sharishch4 79*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi : i32 { 80*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi1 : i8 { 81*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi16 : i128 { 82*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi2 : i16 { 83*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi4 : i32 { 84*13de7593Sharishch4!CHECK-DAG: fir.global internal @_QFEi8 : i64 { 85*13de7593Sharishch4end 86