blob: 5c77844e6da5125eec13018eeecc8c8cab493993 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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
|