OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

+2017-09-24 Dominique d'Humieres <dominiq@lps.ens.fr>

Browse Source 
PR libgfortran/79612
	* runtime/bounds.c: Use GFC_ASSERT.

From-SVN: r253124
This commit is contained in:
Dominique d'Humieres 2017-09-24 15:47:11 +02:00 committed by Dominique d'Humieres
parent 650f7d09d2
commit 02fdb1306c
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2017-09-24 Dominique d'Humieres <dominiq@lps.ens.fr>
PR libgfortran/79612
* runtime/bounds.c: Use GFC_ASSERT.
2017-09-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34640

5
libgfortran/runtime/bounds.c
View File

@ -40,9 +40,8 @@ bounds_iforeach_return (array_t *retarray, array_t *array, const char *name)
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
if (ret_rank != 1)
runtime_error ("Incorrect rank of return array in %s intrinsic:"
"is %ld, should be 1", name, (long int) ret_rank);
/* ret_rank should always be 1, otherwise there is an internal error */
GFC_ASSERT(ret_rank == 1);
rank = GFC_DESCRIPTOR_RANK (array);
ret_extent = GFC_DESCRIPTOR_EXTENT(retarray,0);