flang/test/Lower/HLFIR/tdesc-character-comp-init.f90

   1 ! Test lowering of derived type descriptor for types with
   2 ! a default initialized character component.
   3
   4 ! RUN: bbc -emit-fir -hlfir -o - %s | FileCheck %s
   5
   6 subroutine test()
   7   type t
   8     character(5) :: character_comp = "hello"
   9   end type
  10   type(t) :: x
  11 end subroutine
  12 ! CHECK-LABEL: fir.global {{.*}} @_QFtestE.c.t constant
  13 ! CHECK: fir.address_of(@_QFtestE.di.t.character_comp) : !fir.ref<!fir.char<1,5>>