initialization_19.f90: New test.

2008-05-17  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/initialization_19.f90: New test.

From-SVN: r135479

gcc/testsuite/ChangeLog

@@ -1,3 +1,7 @@
+2008-05-17  Tobias Burnus  <burnus@net-b.de>
+
+	* gfortran.dg/initialization_19.f90: New test.
+
 2008-05-17  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/bit_packed_array3.adb: New test.

gcc/testsuite/gfortran.dg/initialization_19.f90

@@ -0,0 +1,34 @@
+! { dg-do run }
+! The following program fails with 4.3.0
+! but works with 4.4.0. See:
+!
+! http://gcc.gnu.org/ml/fortran/2008-05/msg00199.html
+!
+module c
+type d
+  integer :: i=-1
+end type d
+end module c
+
+module s
+use c
+contains
+subroutine g
+ type(d) :: a
+ ! Without the following line it passes with 4.3.0:
+ print *, a%i
+ if(a%i /= -1) call abort()
+ a%i=0
+end subroutine g
+end module s
+
+program t
+use c
+use s
+
+call g
+call g
+
+end program t
+
+! ! { dg-final { cleanup-modules "c s" } }