gcc/testsuite/gfortran.dg/nested_array_constructor_5.f90

   1 ! { dg-do compile }
   2
   3 ! PR fortran/35846
   4 ! This used to ICE because the charlength of the trim-expression was
   5 ! NULL, but it is switched around to test for the right operand of // being
   6 ! not a constant, too.
   7
   8 implicit none
   9 character(len=2) :: c(2)
  10
  11 c = 'a'
  12 c = (/ (/ trim(c(1)), 'a' /) // (/ trim(c(1)), 'a' /) /)
  13
  14 print *, c
  15
  16 end