18 lines · plain
1! Test that character literals of different types do not clash.2! RUN: bbc -emit-hlfir %s -o - | FileCheck %s3 4subroutine repro(c1, c4)5 character(kind=1,len=*) :: c16 character(kind=4,len=*) :: c47 print *, ""8 print *, 4_""9end subroutine10!CHECK-LABEL: func.func @_QPrepro11!CHECK: fir.address_of(@_QQclX) : !fir.ref<!fir.char<1,0>>12!CHECK: fir.call @_FortranAioOutputAscii13!CHECK: fir.address_of(@_QQcl4X) : !fir.ref<!fir.char<4,0>>14!CHECK: fir.call @_FortranAioOutputDescriptor(15 16!CHECK-DAG: fir.global linkonce @_QQclX constant : !fir.char<1,0>17!CHECK-DAG: fir.global linkonce @_QQcl4X constant : !fir.char<4,0>18