diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2008-11-01 16:42:31 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-11-01 16:42:31 +0000 |
| commit | 63346ddba610eee2fc473d0d41aaf65bc388402b (patch) | |
| tree | 830361faaebf6d74f8e768d2332ec39250a1fce9 /gcc/fortran/array.c | |
| parent | fa4262a47aa70a6f1baa2dd35d1cdb929c250da6 (diff) | |
| download | gcc-63346ddba610eee2fc473d0d41aaf65bc388402b.zip gcc-63346ddba610eee2fc473d0d41aaf65bc388402b.tar.gz gcc-63346ddba610eee2fc473d0d41aaf65bc388402b.tar.bz2 | |
re PR fortran/19925 (Implied do-loop in an initialization expression is broken)
2008-11-01 Steven G. Kargl <kargls@comcast.net>
PR fortran/19925
* trans-array.c (gfc_trans_array_constructor_value): Fix comment.
(gfc_conv_array_initializer): Convert internal_error() to gfc_error_now.
* array.c: Remove GFC_MAX_AC_EXPAND macro.
(gfc_expand_constructor): Use gfc_option.flag_max_array_constructor.
* gfortran.h (gfc_option): Add flag_max_array_constructor member.
* lang.opt: Add -fmax-array-constructor option.
* expr.c (gfc_match_init_expr): Fix error message to mention new option.
* invoke.texi: Document new option.
* options.c (gfc_init_options): Set default value for new option.
(gfc_handle_option): Deal with commandline.
From-SVN: r141518
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 70cf662..fe83ec6 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -24,13 +24,6 @@ along with GCC; see the file COPYING3. If not see #include "gfortran.h" #include "match.h" -/* This parameter is the size of the largest array constructor that we - will expand to an array constructor without iterators. - Constructors larger than this will remain in the iterator form. */ - -#define GFC_MAX_AC_EXPAND 65535 - - /**************** Array reference matching subroutines *****************/ /* Copy an array reference structure. */ @@ -1463,7 +1456,7 @@ gfc_expand_constructor (gfc_expr *e) gfc_expr *f; gfc_try rc; - f = gfc_get_array_element (e, GFC_MAX_AC_EXPAND); + f = gfc_get_array_element (e, gfc_option.flag_max_array_constructor); if (f != NULL) { gfc_free_expr (f); |