From 24fad4e9251d60aa5b0ad21dab2ed2a18fa8d42a Mon Sep 17 00:00:00 2001 From: tkoenig Date: Thu, 16 Oct 2008 10:16:38 +0000 Subject: 2008-10-16 Thomas Koenig PR libfortran/34670 * generated/spread_r4.c: Regenerated. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141167 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/generated/spread_r4.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'libgfortran/generated') diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index a9357afdc61..c151df3122a 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," -- cgit v1.2.3