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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150500 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 72b6b85..a34b2c2 100644 (file)
--- 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 (file)
--- 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;