gcc/testsuite/gfortran.dg/initialization_11.f90

   1 ! { dg-do run }
   2 ! PR fortran/32903
   3 !
   4 program 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
  16 contains
  17   subroutine set(x1)
  18     type(data_type),intent(out):: x1
  19   end subroutine set
  20 end program test