gcc/testsuite/gfortran.dg/imag_2.f

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3       program bug
   4       implicit none
   5       complex(kind=8) z
   6       double precision x
   7       z = cmplx(1.e0_8, 2.e0_8)
   8       x = imag(z)         ! { dg-error "has no IMPLICIT type" "" }
   9       x = imagpart(z)     ! { dg-error "has no IMPLICIT type" "" }
  10       x = realpart(z)     ! { dg-error "has no IMPLICIT type" "" }
  11       x = imag(x)         ! { dg-error "has no IMPLICIT type" "" }
  12       x = imagpart(x)     ! { dg-error "has no IMPLICIT type" "" }
  13       x = realpart(x)     ! { dg-error "has no IMPLICIT type" "" }
  14       end
  15