gcc/testsuite/gfortran.dg/zero_array_components_1.f90

   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 !
   7 program 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)) call abort ()
  17 end program test_assign