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