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

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



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

1 files changed, 34 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/initialization_19.f90 b/gcc/testsuite/gfortran.dg/initialization_19.f90
new file mode 100644
index 00000000000..2465f9b3335
--- /dev/null
+++ b/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" } }