1! { dg-do run }
2! PR Fortran/82841
3!
4   integer, parameter :: N = 2
5   character(len=1) :: chr(N)
6   chr = transfer(repeat("x",ncopies=N),[character(len=1) ::], N)
7   if (chr(1) /= 'x' .and. chr(2) /= 'x') STOP 1
8end
9