gcc/testsuite/gfortran.dg/pr83864.f90

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