mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-30 23:11:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/31610 (ICE with transfer, merge in gfc_conv_expr_descriptor)

Browse Source 
2008-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31610
	* gfortran.dg/array_3.f90: New test.

From-SVN: r131874
This commit is contained in:
Jerry DeLisle 2008-01-26 19:05:15 +00:00
parent bdfc46af99
commit ce97da2242
2 changed files with 18 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-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31610
* gfortran.dg/array_3.f90: New test.
2008-01-26 Jakub Jelinek <jakub@redhat.com>
* gcc.c-torture/compile/pr34966.c (atan): Only use asm

13
gcc/testsuite/gfortran.dg/array_3.f90 Normal file
View File

@ -0,0 +1,13 @@
! { dg-do compile }
! PR31610 ICE with transfer, merge in gfc_conv_expr_descriptor
integer :: i(1) = 1
integer :: foo(3)
integer :: n(1)
foo(1) = 17
foo(2) = 55
foo(3) = 314
print *, i, foo
write(*,*) foo([1]), foo([1]+i), [1]+1
n = foo([1]+i)
print *, n, shape(foo([1]+i)), shape(foo(i+[1]))
end