gcc/testsuite/gfortran.dg/widechar_9.f90

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