3 ! Test the fix for PR84538 in which the scalarizer was taking the size
4 ! of 't', rather than 'te', to generate array references.
6 ! Contributed by Andrew Benson <abensonca@gmail.com>
13 type, extends(t) :: te
19 class(t), intent(inout), dimension(:) :: n
21 i = n%i ! Original testcase had this in a write statement. However,
22 ! it is the scalarizer that is getting the span wrong and so
23 ! this assignment failed too.
24 if (any (i .ne. [8,3])) stop 1
31 class(t), allocatable, dimension(:) :: n
34 if (any (n%i .ne. [8,3])) stop 2