diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 3 |
2 files changed, 12 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 72b6b85e224..a34b2c21cfa 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,13 @@ +2009-08-05 Tobias Burnus <burnus@net-b.de> + + PR fortran/40969 + Revert: + 2009-08-04 Tobias Burnus <burnus@net-b.de> + + PR fortran/40949 + * trans-types.c (gfc_get_function_type): Fix typelist of + functions without argument. + 2009-08-05 Paul Thomas <pault@gcc.gnu.org> PR fortran/40847 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 5ae9a00517f..92373e1b1a2 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -2324,7 +2324,8 @@ gfc_get_function_type (gfc_symbol * sym) while (nstr--) typelist = gfc_chainon_list (typelist, gfc_charlen_type_node); - typelist = gfc_chainon_list (typelist, void_type_node); + if (typelist) + typelist = gfc_chainon_list (typelist, void_type_node); if (alternate_return) type = integer_type_node; |