2 ! Tests the fix for the regression PR26716.
3 ! Test contributed by Martin Reinecke <martin@mpa-garching.mpg.de>
9 module procedure foo1, foo2
14 subroutine foo1(bar, i)
20 subroutine foo2(bar, i)
36 if (i .ne. 1) call abort ()
40 if (i .ne. 1) call abort ()
44 if (i .ne. 2) call abort ()
47 ! { dg-final { cleanup-modules "mod1" } }