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

+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.

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;