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