! { dg-do compile }
!
! PR fortran/39290
! Subroutine/function ambiguity in generics.
!
     interface q
       subroutine qr(f)  ! { dg-error "Ambiguous interfaces" }
         implicit real(f)
         external f
       end subroutine
       subroutine qc(f)  ! { dg-error "Ambiguous interfaces" }
         implicit complex(f)
         external f
       end subroutine
     end interface q
   end