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