2 ! Test alternate entry points in a module procedure
3 ! Also check that references to sibling entry points are resolved correctly.
6 subroutine indirecta (p)
9 subroutine indirectb (p)
21 logical, save :: was_foo = .false.
22 if ((a .ne. 3) .or. (b .ne. 4)) call abort
26 if ((a .ne. 3) .or. (b .ne. 4)) call abort
28 if (a .ne. 5) call abort
47 ! { dg-final { cleanup-modules "m" } }