Subversion Repositories openrisc

! { dg-do run }
! Tests the fix for PR31620, in which zeroing the component a for the array,
! would zero all the components of the array.
!
! David Ham <David@ham.dropbear.id.au>
!
program test_assign
  type my_type
     integer :: a
     integer :: b
  end type my_type
  type(my_type), dimension(1) :: mine        ! note that MINE is an array
  mine%b=4
  mine%a=1
  mine%a=0
  if (any (mine%b .ne. 4)) call abort ()
end program test_assign