From: Thomas Koenig Date: Thu, 16 Oct 2008 10:16:38 +0000 (+0000) Subject: re PR libfortran/34670 (bounds checking for array intrinsics) X-Git-Tag: releases/gcc-4.4.0~2028 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e311490551f3889e6a3e5da09c8fb3ca50778f42;p=thirdparty%2Fgcc.git re PR libfortran/34670 (bounds checking for array intrinsics) 2008-10-16 Thomas Koenig PR libfortran/34670 * generated/spread_r4.c: Regenerated. From-SVN: r141167 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ae4e64e071a8..acc1016eb3c0 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2008-10-16 Thomas Koenig + + PR libfortran/34670 + * generated/spread_r4.c: Regenerated. + 2008-10-15 Thomas Koenig PR libfortran/34670 diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index a9357afdc61b..c151df3122a0 100644 --- a/libgfortran/generated/spread_r4.c +++ b/libgfortran/generated/spread_r4.c @@ -131,8 +131,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source, if (n == along - 1) { rdelta = ret->dim[n].stride; - printf("ret_extent = %ld, ncopies = %ld\n", - (long int) ret_extent, (long int) ncopies); + if (ret_extent != ncopies) runtime_error("Incorrect extent in return value of SPREAD" " intrinsic in dimension %ld: is %ld,"