19 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s2 3!The second testcase from https://github.com/llvm/llvm-project/issues/1414814 5!Check that we don't crash on this.6 7!CHECK: omp.single copyprivate(%6#0 -> @_copy_class_ptr_rec__QFf01Tt : !fir.ref<!fir.class<!fir.ptr<!fir.type<_QFf01Tt>>>>) {8!CHECK: omp.terminator9!CHECK: }10 11subroutine f0112 type t13 end type14 class(t), pointer :: tt15 16!$omp single copyprivate(tt)17!$omp end single18end19