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