program complex
   complex*16 x
   x = (1., 2.)
   print *, x, real(x), aimag(x)
   write(30) x
   write(30) x
   write(30) x
   write(30) x
   write(30) x
   write(30) x
end ! program complex
