Subversion Repositories openrisc

! { dg-do compile }

! This tests the fix for the regression caused by the internal references

! patc, which is tested by internal_references_1.f90. Reported as PR25901.

!

! Based on test cases provided by Toon Moene  

!                          and by Martin Reinecke 

module aap

  interface s

    module procedure sub,sub1

  end interface

contains

  subroutine sub1(i)

    integer i

    real a

    call sub(a)      ! For the original test, this "defined" the procedure.

  end subroutine sub1

  subroutine sub(a)  ! Would give an error on "already defined" here

    real a

  end subroutine sub

end module aap

! { dg-final { cleanup-modules "aap" } }