Subversion Repositories scarts

! { dg-do compile }

! { dg-options "-std=f95" }

      program bug

      implicit none

      complex(kind=8) z

      double precision x

      z = cmplx(1.e0_8, 2.e0_8)

      x = imag(z)         ! { dg-error "has no IMPLICIT type" "" }

      x = imagpart(z)     ! { dg-error "has no IMPLICIT type" "" }

      x = realpart(z)     ! { dg-error "has no IMPLICIT type" "" }

      x = imag(x)         ! { dg-error "has no IMPLICIT type" "" }

      x = imagpart(x)     ! { dg-error "has no IMPLICIT type" "" }

      x = realpart(x)     ! { dg-error "has no IMPLICIT type" "" }

      end