From: Jerry DeLisle Date: Fri, 28 Mar 2008 04:55:11 +0000 (+0000) Subject: re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=15f4eb4428764da231f74ef77d677abad74355f8;p=gcc.git 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 --- 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 +