diff options
author | Tobias Burnus <burnus@net-b.de> | 2007-07-27 11:49:55 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-07-27 11:49:55 +0200 |
commit | a896d54dcb32fecd5be4db88eeb5fe48004f4652 (patch) | |
tree | c7b27a13620e2e5a2eebd29519287377f3252a94 | |
parent | 55ed891fa1c90f2051f000b88c33020719cd6311 (diff) | |
download | gcc-a896d54dcb32fecd5be4db88eeb5fe48004f4652.zip gcc-a896d54dcb32fecd5be4db88eeb5fe48004f4652.tar.gz gcc-a896d54dcb32fecd5be4db88eeb5fe48004f4652.tar.bz2 |
re PR fortran/32903 (Default initializer and intent(OUT): default initializer not used)
2007-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/32903
* gfortran.dg/initialization_11.f90: New test.
From-SVN: r126975
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/initialization_11.f90 | 20 |
2 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 50f1236..59653d7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-27 Tobias Burnus <burnus@net-b.de> + + PR fortran/32903 + * gfortran.dg/initialization_11.f90: New test. + 2007-07-27 Richard Sandiford <richard@codesourcery.com> * gcc.target/mips/ins-1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/initialization_11.f90 b/gcc/testsuite/gfortran.dg/initialization_11.f90 new file mode 100644 index 0000000..a9acbec --- /dev/null +++ b/gcc/testsuite/gfortran.dg/initialization_11.f90 @@ -0,0 +1,20 @@ +! { dg-do run } +! PR fortran/32903 +! +program test + implicit none + type data_type + integer :: i=2 + end type data_type + type(data_type) :: d + d%i = 4 + call set(d) + if(d%i /= 2) then + print *, 'Expect: 2, got: ', d%i + call abort() + end if +contains + subroutine set(x1) + type(data_type),intent(out):: x1 + end subroutine set +end program test |