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