re PR libfortran/34670 (bounds checking for array intrinsics)

2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/34670
	* generated/spread_r4.c: Regenerated.

From-SVN: r141167

libgfortran/ChangeLog

+2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR libfortran/34670
+	* generated/spread_r4.c: Regenerated.
+
 2008-10-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/34670

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,"