OSDN Git Service

2009-08-04 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 4 Aug 2009 17:35:59 +0000 (17:35 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 4 Aug 2009 17:35:59 +0000 (17:35 +0000)
        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@150465 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-types.c

index 540d356..5924892 100644 (file)
@@ -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
index 92373e1..5ae9a00 100644 (file)
@@ -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;