X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Fgenerated%2Fspread_r4.c;h=a9357afdc61b83cc958e3d6d1708777402f5faea;hb=80726d88a8b0416bd3169d9ff2d41f501b214cb1;hp=c151df3122a0e0fd5e8324060889c38ac36f539a;hpb=be8d200b02193648532fec45160982c6a17f4702;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c
index c151df3122a..a9357afdc61 100644
--- a/libgfortran/generated/spread_r4.c
+++ b/libgfortran/generated/spread_r4.c
@@ -131,7 +131,8 @@ 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,"