OSDN Git Service

PR fortran/35682
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 14 May 2008 21:20:10 +0000 (21:20 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 14 May 2008 21:20:10 +0000 (21:20 +0000)
commit356056cf069bd1f51b6514b302a0caa17ba4050d
tree1c3a56e6dca368522831f733c93f7761f0f54c3f
parent03910013722cc2e6a1f4cff40a78f5789051315b
PR fortran/35682

* trans-array.c (gfc_conv_ss_startstride): Any negative size is
the same as zero size.
(gfc_conv_loop_setup): Fix size calculation.

* gfortran.dg/bound_4.f90: New test.
* gfortran.dg/bounds_check_14.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135306 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-array.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/bound_4.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/bounds_check_14.f90 [new file with mode: 0644]