blob: 5ebd31f3df7950ae16e913aa0ea0235b4a058c88 (
plain)
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
|
! { dg-do run }
module alloc_comp_module_7
public :: check
type :: foo
real :: x
integer, allocatable :: y(:)
contains
final :: foo_final
end type
contains
subroutine foo_final(f)
type(foo), intent(inout) :: f
if (allocated(f%y)) then
f%y = -1
end if
end subroutine foo_final
subroutine check()
block
type(foo), allocatable :: example[:] ! needs to be a coarray
allocate(example[*])
allocate(example%y(10))
example%x = 3.4
example%y = 4
deallocate(example%y)
deallocate(example)
end block ! example%y shall not be accessed here by the finalizer,
! because example is already deallocated
end subroutine check
end module alloc_comp_module_7
program alloc_comp_7
use alloc_comp_module_7, only: check
implicit none
call check()
end program alloc_comp_7
|
