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