re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr83864.f90

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