From a896d54dcb32fecd5be4db88eeb5fe48004f4652 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 27 Jul 2007 11:49:55 +0200 Subject: re PR fortran/32903 (Default initializer and intent(OUT): default initializer not used) 2007-07-27 Tobias Burnus PR fortran/32903 * gfortran.dg/initialization_11.f90: New test. From-SVN: r126975 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/initialization_11.f90 | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/initialization_11.f90 (limited to 'gcc') 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 + + PR fortran/32903 + * gfortran.dg/initialization_11.f90: New test. + 2007-07-27 Richard Sandiford * 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 -- cgit v1.1