gcc/testsuite/gfortran.dg/pr51434.f90

   1 ! { dg-do run }
   2 ! PR fortran/51434
   3 module 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
  11 end module foo
  12
  13 program 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
  19 end program bar