5 ! Before the result of concatenations was always a kind=1 string
8 integer,parameter :: u
= 4
9 character(1,u
),parameter :: nen
=char(int(z
'5e74'),u
) !year
10 character(25,u
) :: string
11 string
= u_
"2008"//nen
12 print *, u_
"2008"//nen
! Compiles OK
13 print *, u_
"2008"//nen
//u_
"8" ! Rejects this.
