diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-10-16 10:16:38 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-10-16 10:16:38 +0000 |
commit | e311490551f3889e6a3e5da09c8fb3ca50778f42 (patch) | |
tree | d367f542bbecb37d70419895335656b93ff8e87e /libgfortran | |
parent | bd4a51ab34c0033d7359f3cb138d2efeb5efb5e9 (diff) | |
download | gcc-e311490551f3889e6a3e5da09c8fb3ca50778f42.zip gcc-e311490551f3889e6a3e5da09c8fb3ca50778f42.tar.gz gcc-e311490551f3889e6a3e5da09c8fb3ca50778f42.tar.bz2 |
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
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/generated/spread_r4.c | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ae4e64e..acc1016 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +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 diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index a9357af..c151df3 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," |