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