1! { dg-do compile }
2!
3! PR fortran/37076
4!
5! Before the result of concatenations was always a kind=1 string
6!
7program test3
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.
14end program test3
15