mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
18 lines
437 B
Fortran
18 lines
437 B
Fortran
! { 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)) STOP 1
|
|
end program test_assign
|