program alt_return | |
implicit none | |
call myproc (1, *10, 42) | |
20 continue | |
call abort () | |
10 continue | |
call myproc(2, *20, 42) | |
call myproc(3, *20, 42) | |
contains | |
subroutine myproc(n, *, i) | |
integer n, i | |
if (i .ne. 42) call abort () | |
if (n .eq. 1) return 1 | |
if (n .eq. 2) return | |
end subroutine | |
end program alt_return | |