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

gcc/fortran/ChangeLog

+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

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;