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))