interface_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 43 行

! { dg-do compile }
! This program would segfault without the patch for PR fortran/24005.
module y
  !
  ! If private statement is removed, then we get a bunch of errors
  !
  private f
  !
  ! If we rename 'f' in module y to say 'g', then gfortran correctly
  ! identifies ambiguous as being ambiguous.
  !
  interface ambiguous
    module procedure f
  end interface

  contains

    real function f(a)
      real a
      f = a
    end function

end module y

module z

  use y

  interface ambiguous
    module procedure f    ! { dg-warning "in generic interface" "" }
  end interface

  contains

    real function f(a)
      real a
      f = a
    end function

end module z

! { dg-final { cleanup-modules "y z" } }