From 045edebeb35e5b5abd28b0e06d2e254387fcfae9 Mon Sep 17 00:00:00 2001
From: Richard Henderson <rth@redhat.com>
Date: Tue, 28 Nov 2000 14:56:31 -0800
Subject: [PATCH] * com.c (ffecom_member_phase2_): Set TREE_USED on the
 debugging decl.

From-SVN: r37833
---
 gcc/f/ChangeLog | 4 ++++
 gcc/f/com.c     | 1 +
 2 files changed, 5 insertions(+)

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index d9eddcda6114..9ff8f3ad9966 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-28  Richard Henderson  <rth@redhat.com>
+
+	* com.c (ffecom_member_phase2_): Set TREE_USED on the debugging decl.
+
 2000-11-26  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* RELEASE-PREP: Remove obsolete EGCS reference.
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 458acd05424e..fbeb74b3bcef 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -7110,6 +7110,7 @@ ffecom_member_phase2_ (ffestorag mst, ffestorag st)
   TREE_STATIC (t) = TREE_STATIC (mt);
   DECL_INITIAL (t) = NULL_TREE;
   TREE_ASM_WRITTEN (t) = 1;
+  TREE_USED (t) = 1;
 
   DECL_RTL (t)
     = gen_rtx (MEM, TYPE_MODE (type),