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