18 lines
634 B
Fortran
18 lines
634 B
Fortran
|
! 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>
|