From ce97da224295452707ca7662605d0ccbcb43e034 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 26 Jan 2008 19:05:15 +0000 Subject: [PATCH] re PR fortran/31610 (ICE with transfer, merge in gfc_conv_expr_descriptor) 2008-01-26 Jerry DeLisle PR fortran/31610 * gfortran.dg/array_3.f90: New test. From-SVN: r131874 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/array_3.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/array_3.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1b8e2baf51f0..eac3c530192c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-26 Jerry DeLisle + + PR fortran/31610 + * gfortran.dg/array_3.f90: New test. + 2008-01-26 Jakub Jelinek * 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 000000000000..26879ffaa146 --- /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