1 ! Test alternate entry points in a module procedure
2 ! Also check that references to sibling entry points are resolved correctly.
5 subroutine indirecta (p)
8 subroutine indirectb (p)
20 logical, save :: was_foo = .false.
21 if ((a .ne. 3) .or. (b .ne. 4)) call abort
25 if ((a .ne. 3) .or. (b .ne. 4)) call abort
27 if (a .ne. 5) call abort