re PR libfortran/33298 (Wrong code for SPREAD on zero-sized arrays)
authorThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 6 Sep 2007 19:25:30 +0000 (19:25 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 6 Sep 2007 19:25:30 +0000 (19:25 +0000)
commit3cc50edcc07024dd3d34067654794a45f21dd408
tree7548143d4fd494513065439cea1d484e2a9228a5
parent6f6cc094a09dca5d3ba1ad34c58e0007475f75ea
re PR libfortran/33298 (Wrong code for SPREAD on zero-sized arrays)

2007-09-06  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/33298
* intrinsics/spread_generic.c(spread_internal): Enable
bounds checking by comparing extents if the bounds_check
option has been set.  If any extent is <=0, return early.

2007-09-06  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/33298
* spread_zerosize_1.f90:  New test case.
* spread_bounds_1.f90:  New test case.

From-SVN: r128206
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/spread_bounds_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/spread_zerosize_1.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/intrinsics/spread_generic.c