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 11implicit none 12character(len=2) :: c(3) 13 14c = 'a' 15c = (/ (/ trim(c(1)), 'a' /)//'c', 'cd' /) 16 17print *, c 18 19end 20