5 ! Test for finalization of nonallocatable variables
14 integer, save :: called_final
= -1
16 impure elemental
subroutine finit(x
)
17 type(t
), intent(in
) :: x
18 if (called_final
== -1) call abort ()
19 called_final
= called_final
+ 1
20 if (called_final
/= x
%i
) call abort ()
29 type(t
), save :: x3
, y3(2)
36 if (called_final
/= 3) call abort