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
|
! { dg-do compile }
! Check fix for pr71936.
! Contributed by Gerhard Steinmetz
program p
type t
end type
call test2()
call test4()
call test1()
call test3()
contains
function f_p()
class(t), pointer :: f_p(:)
nullify(f_p)
end
function f_a()
class(t), allocatable :: f_a(:)
end
subroutine test1()
class(t), allocatable :: x(:)
allocate (x, mold=f_a())
deallocate (x)
allocate (x, source=f_a())
end subroutine
subroutine test2()
class(t), pointer :: x(:)
allocate (x, mold=f_p())
deallocate (x)
allocate (x, source=f_p())
end
subroutine test3()
class(t), pointer :: x(:)
allocate (x, mold=f_a())
deallocate (x)
allocate (x, source=f_a())
end
subroutine test4()
class(t), allocatable :: x(:)
allocate (x, mold=f_p())
deallocate (x)
allocate (x, source=f_p())
end subroutine
end
|
