diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index d9eddcda611..9ff8f3ad996 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 458acd05424..fbeb74b3bce 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),