diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-16 10:16:38 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-16 10:16:38 +0000 |
| commit | 24fad4e9251d60aa5b0ad21dab2ed2a18fa8d42a (patch) | |
| tree | d367f542bbecb37d70419895335656b93ff8e87e /libgfortran/generated/spread_r4.c | |
| parent | d37e56198f1be3b0cf8404e90b63eb9e0548a3a3 (diff) | |
| download | gcc-24fad4e9251d60aa5b0ad21dab2ed2a18fa8d42a.tar.gz | |
2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
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
Diffstat (limited to 'libgfortran/generated/spread_r4.c')
| -rw-r--r-- | libgfortran/generated/spread_r4.c | 3 |
1 files changed, 1 insertions, 2 deletions
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," |