FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

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

From-SVN: r141167
This commit is contained in:
Thomas Koenig 2008-10-16 10:16:38 +00:00
parent bd4a51ab34
commit e311490551
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -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> 2008-10-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34670 PR libfortran/34670

3
libgfortran/generated/spread_r4.c
View file

@ -131,8 +131,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
if (n == along - 1) if (n == along - 1)
{ {
rdelta = ret->dim[n].stride; rdelta = ret->dim[n].stride;
printf("ret_extent = %ld, ncopies = %ld\n",
(long int) ret_extent, (long int) ncopies);
if (ret_extent != ncopies) if (ret_extent != ncopies)
runtime_error("Incorrect extent in return value of SPREAD" runtime_error("Incorrect extent in return value of SPREAD"
" intrinsic in dimension %ld: is %ld," " intrinsic in dimension %ld: is %ld,"