1! { dg-do run }
2
3! PR fortran/35846
4! Alternate test that also produced an ICE because of a missing length.
5
6PROGRAM test
7  IMPLICIT NONE
8  CHARACTER(LEN=2) :: x
9  INTEGER :: length
10
11  x = 'a'
12  length = LEN ( (/ TRIM(x), 'a' /) // 'c')
13
14  IF (length /= 2) THEN
15    CALL abort ()
16  END IF
17END PROGRAM
18