diff options
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); |