! { dg-do compile }      program bug      implicit none      complex(kind=8) z      double precision x,y      z = cmplx(1.e0_8,2.e0_8)      y = imag(z)      y = imagpart(z)      x = realpart(z)      end