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
10  x = 'a'
11  CALL sub ( (/ TRIM(x), 'a' /) // 'c')
12END PROGRAM
13
14SUBROUTINE sub(str)
15  IMPLICIT NONE
16  CHARACTER(LEN=*) :: str(2)
17  WRITE (*,*) str
18
19  IF (str(1) /= 'ac' .OR. str(2) /= 'ac') THEN
20    CALL abort ()
21  END IF
22END SUBROUTINE sub
23