diff options
author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2017-09-24 15:47:11 +0200 |
---|---|---|
committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2017-09-24 15:47:11 +0200 |
commit | 02fdb1306ceb0aec22273beaa01057e3bed80255 (patch) | |
tree | 3fb1557479818c7bb74314b3c76380c36269069f /libgfortran/runtime/bounds.c | |
parent | 650f7d09d22fc876bdceb93a47d2abf068c676db (diff) | |
download | gcc-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.c | 5 |
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); |