program test
   implicit none
   double precision::x=2.123456789d0
   real::y=3.123456789
   write(*,"(2f30.18)"),x,y
end program
