OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/35475 (gfortran fails to compile valid code with ICE erro in fold-const.c)

Browse Source 
2008-03-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35475
	* gfortran.dg/derived_sub.f90: New test.

From-SVN: r133205
This commit is contained in:
Jerry DeLisle 2008-03-14 03:13:17 +00:00
parent af078a6003
commit d3f2a55829
2 changed files with 38 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 @@
2008-03-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35475
* gfortran.dg/derived_sub.f90: New test.
2008-03-13 H.J. Lu <hongjiu.lu@intel.com>
PR testsuite/35558

33
gcc/testsuite/gfortran.dg/derived_sub.f90 Normal file
View File

@ -0,0 +1,33 @@
! { dg-do compile }
! PR35475 gfortran fails to compile valid code with ICE error in fold-const.c
! Test case from PR report added to avoid future regression
module modone
type mytype
real :: myvar
end type
end module
module modtwo
interface
subroutine subone(mytype_cur)
use modone
type (mytype) mytype_cur
end subroutine
end interface
contains
subroutine subtwo(mytype_cur)
use modone
type (mytype) mytype_cur,mytype_fin
mytype_fin=mytype_cur
return
end subroutine
subroutine subthree(mytype_cur)
use modone
type (mytype) mytype_cur
call subone(mytype_cur)
end subroutine
end module