19 lines · plain
1!REQUIRES: amdgpu-registered-target2 3!RUN: %flang_fc1 -emit-llvm -triple amdgcn-amd-amdhsa -target-cpu gfx908 %s -o - | FileCheck %s4 5subroutine maintest6 implicit none7 8 type r1_t9 end type r1_t10 11 type(r1_t), pointer :: A12end subroutine13 14! CHECK: @[[TYPE_DESC:.*XdtXr1_t]] = linkonce_odr addrspace(1) constant %_QM__fortran_type_infoTderivedtype15 16! CHECK: define void @maintest_() {{.*}} {17! CHECK: store { {{.*}} } { {{.*}}, ptr addrspacecast (ptr addrspace(1) @[[TYPE_DESC]] to ptr), {{.*}} }, {{.*}}18! CHECK: }19