llvm/flang/test/Lower/HLFIR/constant-character.f90

! Test that character literals of different types do not clash.
! RUN: bbc -emit-hlfir %s -o - | FileCheck %s

subroutine repro(c1, c4)
  character(kind=1,len=*) :: c1
  character(kind=4,len=*) :: c4
  print *, ""
  print *, 4_""
end subroutine
!CHECK-LABEL: func.func @_QPrepro
!CHECK:    fir.address_of(@_QQclX) : !fir.ref<!fir.char<1,0>>
!CHECK:    fir.call @_FortranAioOutputAscii
!CHECK:    fir.address_of(@_QQcl4X) : !fir.ref<!fir.char<4,0>>
!CHECK:    fir.call @_FortranAioOutputDescriptor(

!CHECK-DAG:  fir.global linkonce @_QQclX constant : !fir.char<1,0>
!CHECK-DAG:  fir.global linkonce @_QQcl4X constant : !fir.char<4,0>