diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/interface.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 2 |
3 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e485e72..68c4b7a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-07-24 Tobias Burnus <burnus@net-b.de> + + * options.c (gfc_init_options): Enable -fwhole-file by default. + * interface.c (compare_parameter): Assume a Hollerith constant is + compatible with all other argument types. + 2010-07-23 Tobias Burnus <burnus@net-b.de> PR fortran/44945 diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 201961d..4ffe5ee 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1470,6 +1470,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual, } if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) + && actual->ts.type != BT_HOLLERITH && !gfc_compare_types (&formal->ts, &actual->ts)) { if (where) diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index d5c6c3c..5ba2544 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -96,7 +96,7 @@ gfc_init_options (unsigned int argc, const char **argv) gfc_option.flag_default_real = 0; gfc_option.flag_dollar_ok = 0; gfc_option.flag_underscoring = 1; - gfc_option.flag_whole_file = 0; + gfc_option.flag_whole_file = 1; gfc_option.flag_f2c = 0; gfc_option.flag_second_underscore = -1; gfc_option.flag_implicit_none = 0; |