2 ! Tests the fix for PR31620, in which zeroing the component a for the array,
3 ! would zero all the components of the array.
5 ! David Ham <David@ham.dropbear.id.au>
12 type(my_type
), dimension(1) :: mine
! note that MINE is an array
16 if (any (mine
%b
.ne
. 4)) STOP 1
17 end program test_assign