zero_array_components_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 18 行

! { 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 <[e-mail]>
!
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