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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
! { dg-do run }
! { dg-options "-ff2c" }
! Verifies that complex pointer results work with -ff2c
! try all permutations of result clause in function yes/no
! and result clause in interface yes/no
! this is not possible in Fortran 77, but this exercises a previously
! buggy codepath
function c() result (r)
common // z
complex, pointer :: r
complex, target :: z
r=>z
end function c
function d()
common // z
complex, pointer :: d
complex, target :: z
d=>z
end function d
function e()
common // z
complex, pointer :: e
complex, target :: z
e=>z
end function e
function f() result(r)
common // z
complex, pointer :: r
complex, target :: z
r=>z
end function f
interface
function c ()
complex, pointer :: c
end function c
end interface
interface
function d()
complex, pointer :: d
end function d
end interface
interface
function e () result(r)
complex, pointer :: r
end function e
end interface
interface
function f () result(r)
complex, pointer :: r
end function f
end interface
common // z
complex, target :: z
complex, pointer :: p
z = (1.,0.)
p => c()
z = (2.,0.)
if (p /= z) call abort ()
NULLIFY(p)
p => d()
z = (3.,0.)
if (p /= z) call abort ()
NULLIFY(p)
p => e()
z = (4.,0.)
if (p /= z) call abort ()
NULLIFY(p)
p => f()
z = (5.,0.)
if (p /= z) call abort ()
end
|
