PR inline-asm/84742

[official-gcc.git] / gcc / testsuite / gfortran.dg / interface_37.f90

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