! { dg-do run }
! PR fortran/83864
!
! Derived from PR by Contributed by Gerhard Steinmetz <gscfq@t-online.de>
!
program p
  implicit none
  type t
     character :: c(3) = transfer('abc','z',3)
  end type t
  type(t) :: x
  if (any (x%c /= ["a", "b", "c"])) STOP 1
end