1! { dg-do compile }
2      program bug
3      implicit none
4      complex(kind=8) z
5      double precision x,y
6      z = cmplx(1.e0_8,2.e0_8)
7      y = imag(z)
8      y = imagpart(z)
9      x = realpart(z)
10      end
11
12