1! { dg-do compile } 2! 3! PR 50585: [4.6/4.7 Regression] ICE with assumed length character array argument 4! 5! Contributed by Stuart Mentzer <sgm@objexx.com> 6 7SUBROUTINE SUB1( str ) 8 IMPLICIT NONE 9 CHARACTER(len=*) :: str(2) 10 CALL SUB2( str(1)(:3) ) 11END SUBROUTINE 12 13SUBROUTINE SUB2( str ) 14 IMPLICIT NONE 15 CHARACTER(*) :: str 16END SUBROUTINE 17