Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
Welcome to the Intel Community. If you get an answer you like, please mark it as an Accepted Solution to help others. Thank you!
26733 Discussions

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

OP1
New Contributor I
61 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