SIZE(...,DIM=) issue with assumed-rank array with 17U4

[OP1]

The following code crashes with 17U4. Has this been fixed in any of the later releases?
Thanks!

PROGRAM P
IMPLICIT NONE
INTEGER,ALLOCATABLE :: A(:,:,:)
ALLOCATE(A(1,2,3))
CALL S(A)
CONTAINS
    SUBROUTINE S(A)
    IMPLICIT NONE
    INTEGER :: I
    INTEGER,ALLOCATABLE :: A(..)
        DO I=1,RANK(A)
            WRITE(*,*) SIZE(A,DIM=I)
        END DO
    END SUBROUTINE S
END PROGRAM