blob: ce2306cce8a69076b04e1c0f31c16274347bcdad (
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
|
! { dg-do run }
!
! PR fortran/37336
!
! Test for finalization of nonallocatable variables
!
module m
implicit none
type t
integer :: i
contains
final :: finit
end type t
integer, save :: called_final = -1
contains
impure elemental subroutine finit(x)
type(t), intent(in) :: x
if (called_final == -1) call abort ()
called_final = called_final + 1
if (called_final /= x%i) call abort ()
end subroutine finit
end module m
use m
implicit none
type(t) :: x2, y2(2)
block
type(t) :: xx, yy(2)
type(t), save :: x3, y3(2)
yy%i = [1, 2]
xx%i = 3
y3%i = [-4, -5]
x3%i = -6
called_final = 0
end block
if (called_final /= 3) call abort
called_final = -1
y2%i = [-7, -8]
x2%i = -9
end
|
