1! { dg-do run }
2! PR fortran/78350
3module m
4   type t
5      character(2) :: c(1) = [character(3) :: 'abc']
6   end type
7   type(t) :: x
8end
9program foo
10  use m
11  if (trim(x%c(1)) /= 'ab') STOP 1
12end program foo
13