re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third...

2008-03-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 5a52593621f504cef3c3e92dbe21eaccd82301d5..7b6cda1bbbbde4cc3d1cbc734726082f87f6394a 100644 (file)
--- 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 (file)
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
+