PR fortran/35991
gfortran.dg/zero-sized_4.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134495
138bc75d-0d04-0410-961f-
82ee72b054a4
2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+ PR fortran/35991
+ gfortran.dg/zero-sized_4.f90: New test.
+
+2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
PR fortran/35882
* gfortran.dg/continuation_5.f: Add some comment lines.
* gfortran.dg/continuation_3.f90: Add some comment lines.
--- /dev/null
+! { dg-do run }
+! PR35991 run-time abort for CSHIFT of zero sized array
+! Divide by zero exception before the patch.
+ program try_gf0045
+ call gf0045( 9, 8)
+ end
+
+ subroutine GF0045(nf9,nf8)
+ REAL RDA(10)
+ REAL RDA1(0)
+
+ RDA(NF9:NF8) = CSHIFT ( RDA1 ,1)
+
+ END SUBROUTINE