From 15f4eb4428764da231f74ef77d677abad74355f8 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 28 Mar 2008 04:55:11 +0000 Subject: [PATCH] re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third arg) 2008-03-27 Jerry DeLisle PR fortran/35724 * gfortran.dg/cshift_shift_real_2.f90: New test. From-SVN: r133669 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5a52593621f..7b6cda1bbbb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-27 Jerry DeLisle + + PR fortran/35724 + * gfortran.dg/cshift_shift_real_2.f90: New test. + 2008-03-26 Uros Bizjak * gcc.c-torture/execute/multi-ix.c: Limit CHUNK size between 1 and 500. diff --git a/gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 b/gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 new file mode 100644 index 00000000000..0d92945d237 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR35724 Compile time segmentation fault for CSHIFT with negative third arg + SUBROUTINE RA0072(DDA,LDA,nf10,nf1,mf1,nf2) + REAL DDA(10,10) + LOGICAL LDA(10,10) + WHERE (LDA) DDA = CSHIFT(DDA,1,-MF1) ! MF1 works, -1 works + END SUBROUTINE + -- 2.30.2