program main
 complex z1,z2
 real a,b,c,d
 z1=cmplx(a,b)
 z2=cmplx(c,d)
 print*,'type values of a,b,c,d'
 read(*,*) a,b,c,d
 print*,"z1+z2=",z1+z2
 
end program main