From 944d3ef1c43b09c8867c65528339cd2cfef6f68f Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 17 May 2008 23:32:06 +0200 Subject: [PATCH] initialization_19.f90: New test. 2008-05-17 Tobias Burnus * gfortran.dg/initialization_19.f90: New test. From-SVN: r135479 --- gcc/testsuite/ChangeLog | 4 +++ .../gfortran.dg/initialization_19.f90 | 34 +++++++++++++++++++ 2 files changed, 38 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/initialization_19.f90 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 + + * gfortran.dg/initialization_19.f90: New test. + 2008-05-17 Eric Botcazou * 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" } } -- 2.30.2