diff options
author | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-09-24 13:47:11 +0000 |
---|---|---|
committer | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-09-24 13:47:11 +0000 |
commit | 222d414295eb325ce3c236cf4f5e1b4f9bd57520 (patch) | |
tree | 3fb1557479818c7bb74314b3c76380c36269069f /libgfortran/runtime | |
parent | d9387d44832473f4760bb7648a88e2d28fe54ca4 (diff) |
+2017-09-24 Dominique d'Humieres <dominiq@lps.ens.fr>
PR libgfortran/79612
* runtime/bounds.c: Use GFC_ASSERT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@253124 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r-- | libgfortran/runtime/bounds.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c index ffa09628b64..376b9d7363f 100644 --- a/libgfortran/runtime/bounds.c +++ b/libgfortran/runtime/bounds.c @@ -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); |