2007-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/32903
* gfortran.dg/initialization_11.f90: New test.
From-SVN: r126975
+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.
--- /dev/null
+! { 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