mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/32903 (Default initializer and intent(OUT): default initializer not used)

Browse Source 
2007-07-27  Tobias Burnus  <burnus@net-b.de>

	PR fortran/32903
	* gfortran.dg/initialization_11.f90: New test.

From-SVN: r126975
This commit is contained in:
Tobias Burnus 2007-07-27 11:49:55 +02:00 committed by Tobias Burnus
parent 55ed891fa1
commit a896d54dcb
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

20
gcc/testsuite/gfortran.dg/initialization_11.f90 Normal file
View File

@ -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