diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-04-14 05:16:59 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-04-14 05:16:59 +0000 |
| commit | b1ccc24ee2ad7dd5884e784ec00b4bc481763b48 (patch) | |
| tree | 7cc2b3d107c314cb4cd6d86f8625a64d129600d2 /gcc/fortran/expr.c | |
| parent | f89e2a3c2cfc7f07f59d398cb4ace7f339e081ce (diff) | |
| download | gcc-b1ccc24ee2ad7dd5884e784ec00b4bc481763b48.zip gcc-b1ccc24ee2ad7dd5884e784ec00b4bc481763b48.tar.gz gcc-b1ccc24ee2ad7dd5884e784ec00b4bc481763b48.tar.bz2 | |
re PR fortran/43747 (ICE in find_array_section, at fortran/expr.c:1551)
2010-04-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43747
* constructor.c: Fix typo in comment.
* expr.c (find_array_section): Add check for max array limit.
From-SVN: r158290
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 700fd10..92454f6 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1332,6 +1332,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) int rank; int d; int shape_i; + int limit; long unsigned one = 1; bool incr_ctr; mpz_t start[GFC_MAX_DIMENSIONS]; @@ -1547,7 +1548,18 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) } } - cons = gfc_constructor_lookup (base, mpz_get_ui (ptr)); + limit = mpz_get_ui (ptr); + if (limit >= gfc_option.flag_max_array_constructor) + { + gfc_error ("The number of elements in the array constructor " + "at %L requires an increase of the allowed %d " + "upper limit. See -fmax-array-constructor " + "option", &expr->where, + gfc_option.flag_max_array_constructor); + return FAILURE; + } + + cons = gfc_constructor_lookup (base, limit); gcc_assert (cons); gfc_constructor_append_expr (&expr->value.constructor, gfc_copy_expr (cons->expr), NULL); |