1! { dg-do run }
2! Tests the fix for PR31620, in which zeroing the component a for the array,
3! would zero all the components of the array.
4!
5! David Ham <David@ham.dropbear.id.au>
6!
7program test_assign
8  type my_type
9     integer :: a
10     integer :: b
11  end type my_type
12  type(my_type), dimension(1) :: mine        ! note that MINE is an array
13  mine%b=4
14  mine%a=1
15  mine%a=0
16  if (any (mine%b .ne. 4)) STOP 1
17end program test_assign
18