2 ! Tests the fix for PR29387, in which array valued arguments of
3 ! LEN and ASSOCIATED would cause an ICE.
5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
9 INTEGER, POINTER :: I
=>NULL()
11 type(T1
), pointer :: tar(:)
16 PRINT *, LEN(SUB(8)), ans
17 PRINT *, LEN(SUB(j
)), ans
18 ! print *, len(SUB(j + 2)//"a"), ans ! This still fails (no charlen).
19 print *, len(bar(2)), ans
21 IF(.NOT
.ASSOCIATED(F1(10))) STOP 1
27 CHARACTER(LEN
=I
) :: SUB(1)
33 CHARACTER(LEN
=I
*10) :: BAR(1)
38 FUNCTION F1(I
) RESULT(R
)
39 TYPE(T1
), DIMENSION(:), POINTER :: R