diff options
| -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" } } |