Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! This program would segfault without the patch for PR fortran/24005.

! This program would segfault without the patch for PR fortran/24005.

module y

module y

  !

  !

  ! If private statement is removed, then we get a bunch of errors

  ! If private statement is removed, then we get a bunch of errors

  !

  !

  private f

  private f

  !

  !

  ! If we rename 'f' in module y to say 'g', then gfortran correctly

  ! If we rename 'f' in module y to say 'g', then gfortran correctly

  ! identifies ambiguous as being ambiguous.

  ! identifies ambiguous as being ambiguous.

  !

  !

  interface ambiguous

  interface ambiguous

    module procedure f

    module procedure f

  end interface

  end interface

  contains

  contains

    real function f(a)

    real function f(a)

      real a

      real a

      f = a

      f = a

    end function

    end function

end module y

end module y

module z

module z

  use y

  use y

  interface ambiguous

  interface ambiguous

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

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

  end interface

  end interface

  contains

  contains

    real function f(a)

    real function f(a)

      real a

      real a

      f = a

      f = a

    end function

    end function

end module z

end module z

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

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