aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/runtime/bounds.c
diff options
context:
space:
mode:
authorDominique d'Humieres <dominiq@lps.ens.fr>2017-09-24 15:47:11 +0200
committerDominique d'Humieres <dominiq@gcc.gnu.org>2017-09-24 15:47:11 +0200
commit02fdb1306ceb0aec22273beaa01057e3bed80255 (patch)
tree3fb1557479818c7bb74314b3c76380c36269069f /libgfortran/runtime/bounds.c
parent650f7d09d22fc876bdceb93a47d2abf068c676db (diff)
downloadgcc-02fdb1306ceb0aec22273beaa01057e3bed80255.zip
gcc-02fdb1306ceb0aec22273beaa01057e3bed80255.tar.gz
gcc-02fdb1306ceb0aec22273beaa01057e3bed80255.tar.bz2
+2017-09-24 Dominique d'Humieres <dominiq@lps.ens.fr>
PR libgfortran/79612 * runtime/bounds.c: Use GFC_ASSERT. From-SVN: r253124
Diffstat (limited to 'libgfortran/runtime/bounds.c')
-rw-r--r--libgfortran/runtime/bounds.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c
index ffa0962..376b9d7 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);