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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126975 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 50f12361f08933e85f41922c2f66854615fbb2f8..59653d7101fca61be95525f2545e8053c285ba2e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/initialization_11.f90 b/gcc/testsuite/gfortran.dg/initialization_11.f90
new file mode 100644 (file)
index 0000000..a9acbec
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/initialization_11.f90
@@ -0,0 +1,20 @@
+! { 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