gcc/testsuite/gfortran.dg/char_component_initializer_1.f90

   1 ! { dg-do run }
   2 ! Check the fix for PR31487 in which the derived type default initializer
   3 ! would be padded out with nulls instead of spaces.
   4 !
   5 ! Reported by Harald Anlauf <anlauf@gmx.de>
   6 !
   7 program gfcbug62
   8   implicit none
   9   character(len=16) ::    tdefi(2) = (/'0z1jan0000','1hr       '/)
  10   type t_ctl
  11      character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr       '/)
  12   end type t_ctl
  13
  14   type(t_ctl) :: ctl
  15   integer     :: i,k
  16
  17   if (tdefi(1) .ne. ctl%tdefi(1)) call abort ()
  18 end program gfcbug62