6 implicit character(len
=*,kind
=kind('A')) (Q
)
7 parameter(Q1
= '12345678') ! len=8
8 parameter(Q2
= 'abcdefghijkl') ! len=12
11 if(len('#'//Q3
//'#') /= 15) call abort()
12 if('#'//Q3
//'#' /= '#ABCDEFGHIJKLM#') call abort()
18 if(len('#'//Q1
//'#') /= 10) call abort()
19 if(len('#'//Q2
//'#') /= 14) call abort()
20 if('#'//Q1
//'#' /='#12345678#') call abort()
21 if('#'//Q2
//'#' /='#abcdefghijkl#') call abort()
22 call sub('ABCDEFGHIJKLM') ! len=13