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 ()