blob: 444b27934ca90038811abb171f73f0d0c00a4430 [file] [log] [blame]
! { dg-do run }
!
! PR fortran/37400
!
module mod
implicit character(len=*,kind=kind('A')) (Q)
parameter(Q1 = '12345678') ! len=8
parameter(Q2 = 'abcdefghijkl') ! len=12
contains
subroutine sub(Q3)
if(len('#'//Q3//'#') /= 15) STOP 1
if('#'//Q3//'#' /= '#ABCDEFGHIJKLM#') STOP 2
end subroutine sub
end module mod
program startest
use mod
implicit none
if(len('#'//Q1//'#') /= 10) STOP 3
if(len('#'//Q2//'#') /= 14) STOP 4
if('#'//Q1//'#' /='#12345678#') STOP 5
if('#'//Q2//'#' /='#abcdefghijkl#') STOP 6
call sub('ABCDEFGHIJKLM') ! len=13
end program startest