com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT label to current_function_decl.

2001-01-15  Mark Mitchell  <mark@codesourcery.com>

	* com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT
	label to current_function_decl.

From-SVN: r39042

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index eb154fd..7fa1853 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-15  Mark Mitchell  <mark@codesourcery.com>
+
+       * com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT
+       label to current_function_decl.
+
 Fri Jan 12 17:21:33 2001  Joseph S. Myers  <jsm28@cam.ac.uk>
 
        * g77spec.c (lang_specific_driver): Update copyright year to 2001.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 719df1f..67b09b3 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -12264,7 +12264,7 @@ ffecom_lookup_label (ffelab label)
                                                   1, 0));
          TREE_CONSTANT (glabel) = 1;
          TREE_STATIC (glabel) = 1;
-         DECL_CONTEXT (glabel) = 0;
+         DECL_CONTEXT (glabel) = current_function_decl;
          DECL_INITIAL (glabel) = NULL;
          make_decl_rtl (glabel, NULL);
          expand_decl (glabel);