14 lines · plain
1! Test lowering of derived type descriptor for types with2! a default initialized character component.3 4! RUN: bbc -emit-fir -hlfir -o - %s | FileCheck %s5 6subroutine test()7 type t8 character(5) :: character_comp = "hello"9 end type10 type(t) :: x11end subroutine12! CHECK-LABEL: fir.global {{.*}} @_QFtestE.c.t constant13! CHECK: fir.address_of(@_QFtestE.di.t.character_comp) : !fir.ref<!fir.char<1,5>>14