1! { dg-do run }
2! PR fortran/51434
3module foo
4   implicit none
5   integer, parameter :: n = 5
6   character(len=1), parameter :: s(n) = 'a'
7   type :: a
8      integer :: m = n
9      character(len=1):: t(n) = transfer('abcde', s)
10   end type a
11end module foo
12
13program bar
14   use foo
15   implicit none
16   type(a) c
17   if (c%m /= n) stop 1
18   if (any(c%t /= ['a', 'b', 'c', 'd', 'e'])) stop 2
19end program bar
20