1! { dg-do run }
2! PR fortran/32903
3!
4program test
5  implicit none
6  type data_type
7    integer :: i=2
8  end type data_type
9  type(data_type) :: d
10  d%i = 4
11  call set(d)
12  if(d%i /= 2) then
13     print *, 'Expect: 2, got: ', d%i
14     call abort()
15  end if
16contains
17  subroutine set(x1)
18    type(data_type),intent(out):: x1
19  end subroutine set
20end program test
21