1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
module many_returns
implicit none
contains
integer function b(a)
integer :: a, e
print *, "calling b"
b = d(a)
contains
integer function d(i)
integer :: i
if (i .EQ. 1) then
d = 1
return
end if
if (i .EQ. 2) then
d = 2
return
end if
if (i .EQ. 3) then
d = 3
return
end if
d = 999
end function d
end function b
end module
program returns
use many_returns
implicit none
integer c
c = b(1)
print *, c
c = b(2)
print *, c
c = b(3)
print *, c
c = b(4)
print *, c
end program
|
