Coarrays and allocatable components again

[Nick_M_3]

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

[Steven_L_Intel1]

Thanks, Nick, We'll check this out.

[Steven_L_Intel1]

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