re PR fortran/32903 (Default initializer and intent(OUT): default initializer not used)

2007-07-27  Tobias Burnus  <burnus@net-b.de>

	PR fortran/32903
	* gfortran.dg/initialization_11.f90: New test.

From-SVN: r126975

gcc/testsuite/ChangeLog

+2007-07-27  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/32903
+	* gfortran.dg/initialization_11.f90: New test.
+
 2007-07-27  Richard Sandiford  <richard@codesourcery.com>
 
 	* gcc.target/mips/ins-1.c: New test.

gcc/testsuite/gfortran.dg/initialization_11.f90

+! { dg-do run }
+! PR fortran/32903
+!
+program test
+  implicit none
+  type data_type
+    integer :: i=2
+  end type data_type
+  type(data_type) :: d
+  d%i = 4
+  call set(d)
+  if(d%i /= 2) then
+     print *, 'Expect: 2, got: ', d%i
+     call abort()
+  end if
+contains
+  subroutine set(x1)
+    type(data_type),intent(out):: x1
+  end subroutine set
+end program test