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