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!
For the latest information on Intel’s response to the Log4j/Log4Shell vulnerability, please see Intel-SA-00646
26867 Discussions

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

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