diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-08-05 22:47:19 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-08-05 22:47:19 +0200 |
| commit | a7b75755c5d9f72e0c6fd694dd1099da0c9f633f (patch) | |
| tree | 59fac2535e3b1595093824e639fead3523ff2070 /gcc | |
| parent | dcbd7063fc932fcfe650a39da56e29374e0f461b (diff) | |
| download | gcc-a7b75755c5d9f72e0c6fd694dd1099da0c9f633f.zip gcc-a7b75755c5d9f72e0c6fd694dd1099da0c9f633f.tar.gz gcc-a7b75755c5d9f72e0c6fd694dd1099da0c9f633f.tar.bz2 | |
re PR fortran/40969 (Revision 150465 failed gfortran.dg/c_by_val_1.f)
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.
From-SVN: r150500
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 72b6b85..a34b2c2 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 5ae9a00..92373e1 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; |