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