diff options
Diffstat (limited to 'libgfortran/generated/spread_r4.c')
| -rw-r--r-- | libgfortran/generated/spread_r4.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index c151df3122a0..a9357afdc61b 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," |