2 ! Tests the fix for PR68196
4 ! Contributed by Damian Rouson <damian@sourceryinstitute.org>
8 procedure(foo
), pointer :: funct
10 class(AA
), allocatable
:: my_AA
13 allocate (my_AA
, source
= AA (1, foo
))
17 if (res
%i
.ne
. 3) call abort
18 if (.not
.associated (res
%funct
)) call abort
19 if (my_AA
%i
.ne
. 4) call abort
20 if (associated (my_AA
%funct
)) call abort
24 class(AA
), allocatable
:: A
27 if (.not
.allocated (A
)) then
28 allocate (A
, source
= AA (2, foo
))