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) STOP 1
18 if (.not
.associated (res
%funct
)) STOP 2
19 if (my_AA
%i
.ne
. 4) STOP 3
20 if (associated (my_AA
%funct
)) STOP 4