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