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