gcc/testsuite/gfortran.dg/char_component_initializer_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-Wall" }
   3 ! Added -Wall option to make sure PR42526 does not show up again.
   4 program 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 ()
  16 end program gfcbug62