1program alt_return
2  implicit none
3
4  call myproc (1, *10, 42)
520 continue
6  call abort ()
710 continue
8  call myproc(2, *20, 42)
9  call myproc(3, *20, 42)
10contains
11subroutine myproc(n, *, i)
12  integer n, i
13  if (i .ne. 42) call abort ()
14  if (n .eq. 1) return 1
15  if (n .eq. 2) return
16end subroutine
17end program alt_return
18
19