3 ! Test the fix for the array version of PR64757.
5 ! Based on by Michael Lee Rilee <mike@rilee.net>
12 class(Test), allocatable :: test(:)
15 type(TestReference) :: testList
16 type(test), allocatable :: x(:)
18 testList = TestReference([Test(99), Test(199)]) ! Gave: The rank of the element in the
19 ! structure constructor at (1) does not
20 ! match that of the component (1/0)
21 ! allocate (testList%test(2), source = [Test(99), Test(199)]) ! Works, of course
25 select type (y => testList%test) ! Check vptr set
27 if (any(x%i .ne. y%i)) STOP 1