gcc/testsuite/gfortran.dg/interface_37.f90


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)  ! { 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