OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/35991 (run-time abort for CSHIFT of zero sized array)

Browse Source 
2008-04-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35991
	gfortran.dg/zero-sized_4.f90: New test.

From-SVN: r134495
This commit is contained in:
Jerry DeLisle 2008-04-20 21:17:42 +00:00
parent 8a441bd5d7
commit afacce119d
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

14
gcc/testsuite/gfortran.dg/zero_sized_4.f90 Normal file
View File

@ -0,0 +1,14 @@
! { 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