gcc/testsuite/gfortran.dg/nested_array_constructor_1.f90

   1 ! { dg-do compile }
   2 ! This test is run with result-checking and -fbounds-check as
   3 ! nested_array_constructor_2.f90
   4
   5 ! PR fortran/35846
   6 ! This used to ICE because the charlength of the trim-expression was
   7 ! NULL.
   8
   9 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
  10
  11 implicit none
  12 character(len=2) :: c(3)
  13
  14 c = 'a'
  15 c = (/ (/ trim(c(1)), 'a' /)//'c', 'cd' /)
  16
  17 print *, c
  18
  19 end