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
|
program functions_03
implicit none
integer, parameter :: sp = 4
complex(4) :: i, j
i = 1
j = 1
print *, j
j = f(i)
print *, i
print *, j
j = 1
print *, j
j = f((3.0, 0.0))
print *, j
j = 1
print *, j
j = g((2.0, 0.0))
print *, j
j = 1
print *, j
j = g((2.0, 3.0))
print *, j
contains
complex(4) function f(a) result(b)
complex(4), intent(in) :: a
b = a + 5
end function
complex(sp) function g(a) result(b)
complex(sp), intent(in) :: a
b = a + 5
end function
end program
|
