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/options.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/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index e84b3b1..3f49d56 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -65,6 +65,7 @@ gfc_init_options (unsigned int argc, const char **argv) gfc_option.max_continue_free = 255; gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN; gfc_option.max_subrecord_length = 0; + gfc_option.flag_max_array_constructor = 65535; gfc_option.convert = GFC_CONVERT_NATIVE; gfc_option.record_marker = 0; gfc_option.dump_parse_tree = 0; @@ -642,6 +643,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_add_intrinsic_modules_path (arg); break; + case OPT_fmax_array_constructor_: + gfc_option.flag_max_array_constructor = value > 65535 ? value : 65535; + break; + case OPT_fmax_errors_: gfc_option.max_errors = value; break; |