diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-28 04:55:11 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-28 04:55:11 +0000 |
| commit | 15f4eb4428764da231f74ef77d677abad74355f8 (patch) | |
| tree | bfdc48f7703d864554efacdbef0d049dd146b3f3 | |
| parent | 97d650ccf79a0bbf45387ae0cc77f98d345dca6a (diff) | |
| download | gcc-15f4eb4428764da231f74ef77d677abad74355f8.zip gcc-15f4eb4428764da231f74ef77d677abad74355f8.tar.gz gcc-15f4eb4428764da231f74ef77d677abad74355f8.tar.bz2 | |
re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third arg)
2008-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35724
* gfortran.dg/cshift_shift_real_2.f90: New test.
From-SVN: r133669
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/cshift_shift_real_2.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5a52593..7b6cda1b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/35724 + * gfortran.dg/cshift_shift_real_2.f90: New test. + 2008-03-26 Uros Bizjak <ubizjak@gmail.com> * 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 0000000..0d92945 --- /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 + |