imag_2.f

linux下编程用 编译软件

! { 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