diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-26 19:05:15 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-26 19:05:15 +0000 |
| commit | ce97da224295452707ca7662605d0ccbcb43e034 (patch) | |
| tree | 20f9ada9586df1194acbd826b13320c677207503 | |
| parent | bdfc46af998ed47f58435744d0473722db127175 (diff) | |
| download | gcc-ce97da224295452707ca7662605d0ccbcb43e034.zip gcc-ce97da224295452707ca7662605d0ccbcb43e034.tar.gz gcc-ce97da224295452707ca7662605d0ccbcb43e034.tar.bz2 | |
re PR fortran/31610 (ICE with transfer, merge in gfc_conv_expr_descriptor)
2008-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31610
* gfortran.dg/array_3.f90: New test.
From-SVN: r131874
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_3.f90 | 13 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1b8e2ba..eac3c53 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/array_3.f90 b/gcc/testsuite/gfortran.dg/array_3.f90 new file mode 100644 index 0000000..26879ff --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_3.f90 @@ -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 |