Coarrays and allocatable components again

Coarrays and allocatable components again

This may overlap with previous issues, but is simpler.

PROGRAM Main
    TYPE :: Mytype
        INTEGER, ALLOCATABLE :: ptr(:)
    END TYPE Mytype
    TYPE(Mytype) :: coarray[*]
    ALLOCATE(coarray%ptr(3))    
    IF (THIS_IMAGE() == 2) coarray%ptr = 123
    SYNC ALL
    IF (THIS_IMAGE() == 1) THEN
        coarray = coarray[2]
        PRINT *, coarray%ptr
    END IF
END PROGRAM Main

 -1083162920       32767 -1083162920

 

 

3 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

Thanks, Nick, We'll check this out.

Steve - Intel Developer Support

This is an issue we're already working on. Issue ID is DPD200255148.

Steve - Intel Developer Support

Leave a Comment

Please sign in to add a comment. Not a member? Join today