PROGRAM Run
    USE Demo
    IMPLICIT NONE
    TYPE(My_complex) :: one = My_complex(123, 456), &
        two = My_complex(432, 876), three

    three = one
    WRITE (*, '("( ", I0, " , ", I0, " )")') two
    WRITE (*, '("( ", I0, " , ", I0, " )")') three
END PROGRAM Run