From: Jakub Jelinek <jakub@redhat.com>
Date: Tue, 11 Oct 2005 22:01:02 +0000 (+0200)
Subject: f95-lang.c (gfc_init_decl_processing): Initialize void_list_node.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=24cc11935c9884ae872244773c6dc97304e80fa4;p=gcc.git

f95-lang.c (gfc_init_decl_processing): Initialize void_list_node.

	* f95-lang.c (gfc_init_decl_processing): Initialize
	void_list_node.

From-SVN: r105265
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f12abc2971b..9da5b9400ec 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-11  Jakub Jelinek  <jakub@redhat.com>
+
+	* f95-lang.c (gfc_init_decl_processing): Initialize
+	void_list_node.
+
 2005-10-07  Erik Edelmann  <erik.edelmann@iki.fi>
 
         PR 18568
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index b28980b3361..9056cd29ca4 100644
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -568,6 +568,7 @@ gfc_init_decl_processing (void)
   build_common_tree_nodes (false, false);
   set_sizetype (long_unsigned_type_node);
   build_common_tree_nodes_2 (0);
+  void_list_node = build_tree_list (NULL_TREE, void_type_node);
 
   /* Set up F95 type nodes.  */
   gfc_init_kinds ();