program trash
      implicit none
      integer i
      double precision b
      double complex a
      a=(1.0,1.0)
      b=0.d0
      do i=1,10
         write(6,*) a
         a=a*a
         a=a/b
      enddo
      stop
      end