1! { dg-do compile }
2! This tests the fix for the regression caused by the internal references
3! patc, which is tested by internal_references_1.f90. Reported as PR25901.
4!
5! Based on test cases provided by Toon Moene  <toon@moene.indiv.nluug.nl>
6!                          and by Martin Reinecke <martin@mpa-garching.mpg.de>
7module aap
8  interface s
9    module procedure sub,sub1
10  end interface
11contains
12  subroutine sub1(i)
13    integer i
14    real a
15    call sub(a)      ! For the original test, this "defined" the procedure.
16  end subroutine sub1
17  subroutine sub(a)  ! Would give an error on "already defined" here
18    real a
19  end subroutine sub
20end module aap
21