gcc/testsuite/gfortran.dg/imag_1.f

   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