From f88cf205f50b9fcd5f41a6abeb24a7ec2991c207 Mon Sep 17 00:00:00 2001
From: Andrew Pinski <pinskia@physics.uc.edu>
Date: Sat, 30 Oct 2004 14:53:12 +0000
Subject: [PATCH] f95-lang.c (lang_tree_node): Add chain_next to be the
 TREE_CHAIN.

2004-10-30  Andrew Pinski  <pinskia@physics.uc.edu>

        * f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN.

From-SVN: r89889
---
 gcc/fortran/ChangeLog  | 4 ++++
 gcc/fortran/f95-lang.c | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8c81b0bbe14..2854d744485 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-30  Andrew Pinski  <pinskia@physics.uc.edu>
+
+	* f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN.
+
 2004-10-30  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* simplify.c (twos_complement): Calculate mask in GMP arithmetic.
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index dec03e8256d..5c556de5619 100644
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -62,7 +62,8 @@ GTY(())
 /* The resulting tree type.  */
 
 union lang_tree_node
-GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE")))
+GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
+     chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.generic)")))
 {
   union tree_node GTY((tag ("0"),
 		       desc ("tree_node_structure (&%h)"))) generic;