! File: gfortran_bug7.f90
! Public domain 2005 James Van Buskirk
! gfortran doesn't recognize AIMAG & CONJG as generic

module mykinds
   implicit none
   integer, parameter :: dp = selected_real_kind(15,300)
end module mykinds

program gfortran_bug7
   use mykinds
   implicit none
   complex(dp) x

   x = (0,1)
   write(*,*) aimag(x)
   write(*,*) conjg(x)
end program gfortran_bug7