diff options
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index f03319b..6ec8467 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -51,6 +51,9 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.max_continue_fixed = 19; gfc_option.max_continue_free = 39; gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN; + gfc_option.max_subrecord_length = 0; + gfc_option.convert = CONVERT_NATIVE; + gfc_option.record_marker = 0; gfc_option.verbose = 0; gfc_option.warn_aliasing = 0; @@ -636,6 +639,12 @@ gfc_handle_option (size_t scode, const char *arg, int value) case OPT_frecord_marker_8: gfc_option.record_marker = 8; break; + + case OPT_fmax_subrecord_length_: + if (value > MAX_SUBRECORD_LENGTH) + gfc_fatal_error ("Maximum subrecord length cannot exceed %d", MAX_SUBRECORD_LENGTH); + + gfc_option.max_subrecord_length = value; } return result; |