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