blob: e8af92d221199af8cccd28c372a5ed0ac80f97e7 [file] [log] [blame]
! { 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