! 	This F90 program shows difference in accuracy of complex numbers
!	==============================
        program Convert
	implicit none

        complex(8) :: x;
        real(8)    :: r;

! ===================================================
! Convert complex to real
! ===================================================
	x = (123, 456)
	r = x
	print *
	print *, "complex x = ", x, " => real r = ", r

! ===================================================
! Convert real to complex 
! ===================================================
	r = 12345
	x = r
	print *
	print *, "real r = ", r, " => complex x = ", x


	stop
	end