1! { dg-do compile } 2! 3! PR fortran/39290 4! Subroutine/function ambiguity in generics. 5! 6 interface q 7 subroutine qr(f) 8 implicit real(f) 9 external f 10 end subroutine 11 subroutine qc(f) 12 implicit complex(f) 13 external f 14 end subroutine ! { dg-error "Ambiguous interfaces" } 15 end interface q 16 end 17