1! { dg-do run }
2! { dg-options "-Wall" }
3! Added -Wall option to make sure PR42526 does not show up again.
4program gfcbug62
5  implicit none
6  character(len=16) ::    tdefi(2) = (/'0z1jan0000','1hr       '/)
7  type t_ctl
8     character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr       '/)
9  end type t_ctl
10
11  type(t_ctl) :: ctl
12  integer     :: i,k
13  i = 1
14  k = 1
15  if (tdefi(1) .ne. ctl%tdefi(1)) call abort ()
16end program gfcbug62
17