blob: 49bca6609315fbdfc905b7f2df76c166224a411e [file] [log] [blame]
! { dg-do run }
! PR fortran/51434
module foo
implicit none
integer, parameter :: n = 5
character(len=1), parameter :: s(n) = 'a'
type :: a
integer :: m = n
character(len=1):: t(n) = transfer('abcde', s)
end type a
end module foo
program bar
use foo
implicit none
type(a) c
if (c%m /= n) stop 1
if (any(c%t /= ['a', 'b', 'c', 'd', 'e'])) stop 2
end program bar