Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
27421 Discussions

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

OP1
New Contributor II
101 Views

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

 

0 Kudos
0 Replies
Reply