diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-05-17 23:32:06 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-05-17 23:32:06 +0200 |
| commit | 944d3ef1c43b09c8867c65528339cd2cfef6f68f (patch) | |
| tree | 839c8c22c4c11eb8e787e72fb7c3c2190db63228 /gcc | |
| parent | 5c7fdaebb319fac36a19ac9f67534883ad66b683 (diff) | |
| download | gcc-944d3ef1c43b09c8867c65528339cd2cfef6f68f.zip gcc-944d3ef1c43b09c8867c65528339cd2cfef6f68f.tar.gz gcc-944d3ef1c43b09c8867c65528339cd2cfef6f68f.tar.bz2 | |
initialization_19.f90: New test.
2008-05-17 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/initialization_19.f90: New test.
From-SVN: r135479
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/initialization_19.f90 | 34 |
2 files changed, 38 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 10325d7..b5434b0 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 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" } } |