bin_op_complex_dp.f90

program bin_op_complex_dp

    complex(4) :: zero
    complex(8) :: v, u
    complex :: x
    zero = 1.0_4/7
    u = 1.0_4/7
    v = 1.0_8/7
    x = 1.0_4/7
    print *, zero, v, x, u

end program