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