From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 17 May 2008 21:32:06 +0000 (+0200)
Subject: initialization_19.f90: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=944d3ef1c43b09c8867c65528339cd2cfef6f68f;p=gcc.git

initialization_19.f90: New test.

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

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

From-SVN: r135479
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 10325d74427..b5434b0d1d8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/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.
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" } }