From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 27 Jul 2007 09:49:55 +0000 (+0000)
Subject: 2007-07-27  Tobias Burnus  <burnus@net-b.de>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=38d8ac35d2de4127cfd59ae8793fea508adb5a00;p=thirdparty%2Fgcc.git

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 50f12361f089..59653d7101fc 100644
--- 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
index 000000000000..a9acbec22db1
--- /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