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 10325d7442781c2f5d5eedf78b0767abab65d23a..b5434b0d1d8fd6fb1bfb567395abd256990cff8c 100644 (file)
--- 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 (file)
index 0000000..2465f9b
--- /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" } }