111
|
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
|