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