! { 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 |