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