diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-08-04 19:35:59 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-08-04 19:35:59 +0200 |
| commit | 4eb0668e9b11a2de0c2003ffb1492531702561aa (patch) | |
| tree | daa2bdef652a46d059c90019589fac40af21f62d | |
| parent | b13b7f3990f5883c4ffc1d8124e1ca84162b68ca (diff) | |
| download | gcc-4eb0668e9b11a2de0c2003ffb1492531702561aa.zip gcc-4eb0668e9b11a2de0c2003ffb1492531702561aa.tar.gz gcc-4eb0668e9b11a2de0c2003ffb1492531702561aa.tar.bz2 | |
re PR fortran/40949 (FAIL: gfortran.dg/proc_ptr_7.f90)
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: r150465
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 540d356..5924892 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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-04 Paul Thomas <pault@gcc.gnu.org> PR fortran/40875 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 92373e1..5ae9a00 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -2324,8 +2324,7 @@ gfc_get_function_type (gfc_symbol * sym) while (nstr--) typelist = gfc_chainon_list (typelist, gfc_charlen_type_node); - if (typelist) - typelist = gfc_chainon_list (typelist, void_type_node); + typelist = gfc_chainon_list (typelist, void_type_node); if (alternate_return) type = integer_type_node; |